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ABSTRACT 


This  paper  is  a  report  on  an  interactive  production  control  training 
model  for  a  Naval  Air  Rework  Facility  (NARF)  Shop.  The  system  is  an  inter¬ 
active  shop  simulator  which  allows  production  control  decisions  to  be  made 
by  the  user.  The  objective  is  to  provide  a  training  vehicle  for  production 
control  decision  making.  The  report  includes  a  "users'  manual"  and  program 
listing. 
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i  .  in i knniir  i  f pm 

1  hp  Naval  Air  Rework  Faci  1  itv  (  NARF  )  at  Jack  sonvi 1  le  Nava' 

Air  Station  is  an  industrial  riant  with  some  3*0(>0  pmrlovpp-  • 
ft  is  one  of  si::  similiar  NARF ' s  located  in  t  lie  United  States. 

Toe  management  officials  arc  Naval  officers  and  I  he  renai ndo 
sic  civilians.  The  civil  inn  work,  force  includes  engineers* 
planner?.*  a dm  n  i  st  rat  ors  *  and  mechanics  represent,  ins  over  40 
different  highly  skilled  trades. 

11,  e  NARF  mission  includes  maintenance  engineering  arid  he  -  .  • 

' depot )  maintenance  of  military  aeronautical  items  ranging  fro:, 
comr-le+.e  aircraft  to  spare  components.  B v  policy*  NARF 
maintenance  ori  all  items  is  a  selective  process  which  involves 
diagnosis  if  item  condition*  updating  with  latest  reoui red 
changes*  and  limited  maintenance  rework  to  recondition  the  item 
for  another  period  of  service. 

The  NARF  is  organized  bn  support  services  (Engineering* 
duality  Assurance*  Planning*  etc. land  the  Production  Department . 

The  Production  Department*  with  some  2/3  of  the  civilian 
workers*  is  made  up  of  over  100  different,  shops.  These  shoes* 

H hardware  producing  element,-  of  the  plant*  are  organized! 
some  by  product  (radio  shop)*  some  by  process  (cleaning  shop)* 
and  some  by  function  ( assembly! «  The  shops  form  an  interrelated 
network,  through  which  products  flow  as  the  maintenance  r-rorpss 
r - nr eeds . 

The  NARF  product  workload  consists  of  about  50%  aircraft. 

The  aircraft  are  examined  (diagnosed)*  and  disassembled  as 
reoui red  to  permit  shop  component  processing.  As  a  matter  of 
production  policy*  the  processed  components  are  used  to 
reassemble  the  aircraft*  which  is  then  flight  tested.  About  15% 
of  the  MART  workload  consists  of  aircraft  engines  (which  enter 
the  plant  as  such)  arid  are  overhauled  and  returned  to  the  Now 
supply  system  foi  issue  and  reuse.  Another  15%  of  the  workload 
is  made  up  of  miscellaneous  spare  aeronautical  conponents  which 
have  been  in  use  and  are  sent  to  NARF  for  reoui red  maintenance. 
After  being  reconditioned  by  NARF*  these  are  returned  to  the 
Navy  supply  system  for  reissue  arid  reuse.  The  remaining  20%  of 
NARF  workload  is  of  a  miscellaneous  nature  including  such 
unplanned  items  as  aircraft  repair  ( repair  of  damaged  aircraft)* 
customer  service  (on  demand) *  and  field  modification. 

II.  iHF  NARF  SHOPS 

This  paper  deals  with  a  typical  NARF  shop.  I  he  shops  under 
study  belong  to  a  class  of  shops  which  have  the  following  common 
cha  r acte  r i st ics 1 

1)  The  bulk  of  processing  on  Fobs  entering  each  such  shop  is 
confined  to  that  shop.  This  means  that  a  shop  function? 
as  a  repair  station  rather  than  a  disassembly*  routing* 
and  reassembly  shop* 

2)  A  shop  of  this  class  is  manned  by  a  substantial  number 

of  mechanics  whose  interchangeable  skills  make  it  possible 
to  work  on  a  variety  o!  Jobs  in  backlog. 

3)  .lobs  in  these  shops  have  individual  work  content  which 
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is  small  relative  to  the  total  load  in  the  shoe.  Since 
work  content  is  small  it  is  also  generally  true  that  a 
single  worker  at  a  time  processes  each  Job. 

4)  Shops  in  this  class  are  not  highly  dependent  on 
eouiement  capacity  as  limiters. 

From  a  production  control  viewpoint.  the  shop  is  composed  of 
three  basic  elements*  the  workable  backlog  area,  the 
r.onworkable  backlog  area,  and  the  processing  area  (see  Figure  1). 

Jobs  arrive  at  the  shop  and  normally  are  entered  into  the 
workable  backlog,  to  await  processing  by  an  available  worker. 

If.  for  some  reason,  a  Job  cannot  be  processed  ’as  is."  it  is 
entered  into  the  nonworkable  backlog.  Usually  Jobs  will  be 
placed  in  the  nonworkable  backlog  because  fo  the  nonavsi labi 1 i ty 
of  a  component  part  reauired  for  processing  or  technical  data 
reauired  for  processing.  Once  the  nonavailability  is  satisfied, 
the  Job  returns  to  the  workable  backlog. 

Jobs  move  from  the  workable  backlog  to  the  processing  area 
ar  needed.  Sometimes,  during  the  initial  disassembly  of'  a  Job. 
it  is  determined  th3t  an  additional  component,  pert(s)  will  be 
necessary  to  complete  the  Job.  If  the  component  part(s)  is  not 
available,  the  Job  is  entered  into  the  nonworkable  backlog  (see 
Figure  1),  When  processing  is  completed  on  a  Job.  it  leaves  the 
>hop . 

Management  has  at  least  two  methods  by  which  they  can 
exercise  control  over  the  shop  on  a  week  to  week  basis.  First, 
they  can  increase  the  shop  capacity  by  moving  Qualified  workers 
into  the  shop  from  other  shops  in  the  NARF ,  or  they  can  decrease 
the  shop  capacity  in  the  same  manner.  Second,  they  can  increase 
shop  capacity  by  working  the  existing  shop-  manpower  overtime. 
Management  control  of  the  shop  is  exercised  with  the  objective 
of  performing  the  mission  of  the  shop,  arid  incurring  the  least 
possible  cost.  Clearly,  these  two  objectives  are  somewhat  in 
conflict.  Conseciuent  ly »  any  rational  control  policy  is  formed 
h  trading  of  mission  performance  with  cost  of  operation. 

The  use  of  overtime  increases  the  operating  cost  of  the 
'•■stem.  In  addition  to  an  increased  labor  rate,  overtime  wort 

•  •-•'jelly  is  perform, -d  at  a  lower  eff  idiency  rate  than  that  of 

;t.  r  sight  time  work.  It  would  seem  initially  that  increasing  tine 
hop  capacity  by  bringing  in  more  workers  would  be  preferable  to 
overtime »  but  that  .also  results  temporarily  in  increased  costs 
i  sused  primarily  by  two  factors.  First,,  there  is  an 
administrative  cost  for  moving  workers.  Second,  and  more 
important,  workers  moved  into  s  shop  take  time  to  learn  their 
.'•''he-  and,  conseouent  1  y ,  work  at  a  reduced  rate  for  a  period 
immediately  after  sssinSmcnt  to  the  shop  (assuming  that  the 
wo i lor  is  Qualified,  this  per  rod  of  lowered  efficiency  may  last 
one  to  three  weeks). 

The  amount  of  work  in  the  system  is  of  concern  to  management  . 
Ion  b-cklos  levels  may  cause  inefficient  manpower  utilization. 

It  the  workable  backlog  is  depleted,  the  workers  in  the  shop 

will  be  idle.  Another  possibility  is  that,  if  the  workable 

i,  cl  1  os  nears  depletion,  the  workers'  efficiency  will  decrease. 

*  hereby  resulting  in  an  application  of  Parkinson's  law.  In  are 
'''fit  the  effect,  on  the  system  is  the  same.  Its  efficiency  i 

;  i1 1'  ed  . 

If  back  logs  are  too  large,  management,  also  has  reason  tor 
re  err,.  Large  back  logs  result  in  increased  flow  time  foi  i, J. 
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BACKLOG  NON-WORK  ABLE 

_ _  BACKLOG 
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in  the  system  4  If  a  30b  has  come  from  an  aircraft  being 
reworked  at  the  NARF  *  an  excessive  delay  of  the  Job  in  the  shoe 
will  cause  the  processing  of  an  aircraft  to  be  drlavpd.  This 
will  result  in  a  real  cost  for  NAKL.  If  a  Job  is  for  the  Navy 
sueely  system*  an  excessive  delay  of  the  Job  will  cause  a 
depletion  of  the  Navy  inventory  which  may  result  in  the 
grounding  of  a  fleet  aircraft.  In  either  case*  the  result  is  a 
reduction  of  the  number  of  operational  aircraft  available  to  the 
Navy . 

The  shop  model  program  was  written  to  provide  a  high 
feedback  environment  for  training  production  control  personneJ . 
Use  of  the  model  should  allow  beginning  personnel  to  get,  a 
bet  t  er  understanding  of  the  dynamics  of  the  shop  4 

III.  PROGRAM  STRUCTURE 

In  order  to  discuss  the  internal  structure  of  the  shop  model 
program  it  is  first  necessary  to  describe  the  d.i  f  ferret  paths 
l  hat  a  .job  c3n  tale  through  the  shop, 

1)  The  Job  enters  the  shop  and  is  placed  on  the  workable 
backlog.  It  is  then  worked  on  *  completed*  and  leaves 
the  shop . 

2)  The  Job  enters  the  shop  and  is  placed  on  the  nonworksble 
backlog  for  some  non- -avai labi 1 ity .  Later  when  the 
non-availability  is  satisfied  the  job  is  placed  on  the 
workable  backlog.  It  is  then  worked  on*  completed* 

and  leaves  the  shop, 

3)  The  job  enters  the  shop  and  is  Placed  on  the  workable 
backlog.  It  is  then  worked  on  but  not  completed  due 
to  lack  of  parts  or  skills.  The  job  is  plaed  on  the 
nonworksble  backlog  until  the  parts  or  skills  are 
available*  when  it  1.  placed  hack  on  the  workable 
backlog.  The  Job  is  then  comr-leted  and  leaves  the  shop. 

4)  The  Joh  enters  the  shop  arid  is  placed  on  the  nonworkah  to 
backlog.  After  the  necessary  conditions  have  been 
satisfied  it  is  placed  on  the  workable  backlog.  It  1 

t  hen  worked  on  but  not  completed  due  to  lack  ot  parti 
or  s kill s .  I  he  job  is  placed  on  the  nonworksble 
backlog.  I  star  the  job  is  rut  bad  on  the  workable 
backlog*  worked  on*  completed*  and  leaves  the  shop. 

I  lii",  o  r- r  f  hs  can  he  seen  in  the  shop  schematic  in  figure  1.  ten 
?  iniPl  icit.y  any  further  reference  to  the  different,  paths  will  be 
hv  the  numbers  given  above. 

Lxami nation  of  t  hese  paths  reveal  many  simi  larities.  I  his 
nd  o'-  1. 1  possible  to  write  the  program  so  that  the  jobs  are 

si  cured  together  on  the  backlogs  regard  less  of  the  route  they 

■  i  (■  on  . 

I  he  program  stores  the  backlogs*  event  List*  and  the  wot  I  or-- 
;  I  on  s  single  linked  list.  This  requires  the  storage  n|  t  ho 
1  M  t  ho  user  wishes  to  input  the  information  directly  the 

■  m  calls  subroutine  1NFU1,  Optional  ly  the  prosarsm  ex  I  l  ~ 

•  mr  •  .'it  1  ne  HA1  A  to  input  the  information  from  a  stored  data  file, 
la  1 1  he  r  case  + he  program  must  then  rail  subroutine  PARAM . 

T f  1  ■ •  ruhi out i ne  rail  uJaies  the  two  needed  parameters  of  the 
r w-  1  k  ah  I  o  del"-'  t  1  me  distribution  from  the  given  mean  --no 
'  *  -  r . -  r  1 ;  dev  1  at  1  on  . 

The  .•  rogr.-.m  sc  hi  eve  a  steady  state  conditions  by  runmns  t.hi  • 
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model  for  twenly  weeks(  pg.  ).  These  weeks  use  a  target 

value  determined  by  the  numher  of  men  in  t  he  shoe  at  the  star* 
of  the  simulation.  After  the  'hoe  h :»*  been  initialized  the 
program  outputs  the  current  she:  status  (  See  Appendix  C  )*  and 
prompts  the  user  for  informal .  on  required  for  the  upcoming  week  . 

The  information  leouired  is  the  induction  tar  dot  valuer  amount 
of  overtime*  and  the  number  of  workers  transferring  in  or  out  of 
the  shop.  The  workers'  efficiency  ratings  art?  then  updated  for 
the  upcoming  week.  After  adding  or  deleting  workers  the  program 
is  ready  to  simulate  the  week. 

Jobs  are  generated  and  given  exponential  lv-f  distributed  Job 
sires  <  Pd.  4E<  )  .  A  certain  percentage  of  these  jobs  are  then 
placed  on  the  nonworkable  backlog  and  the  rest  on  the  workable 
backlog.  When  a  Job  is  placed  on  the  nonworkable  backlog  the 
program  calls  subroutine  DELAY  to  calculate  the  delay  time.  The 
delay  time  distribution  is  a  two-stage  general  erlang 
distribution.  The  subroutine  computes  the  delay  time  so  that 
the  job's  event,  time  is  not  during  the  night,.  When  a  Job  is 
rlaced  on  the  workable  backlog  the  program  calculates  ten 
percent  of  the  Job  size  and  stores  this  value.  This  enables  the 
program  to  check  the  Job  after  ten  percent  has  been  completed. 
This  process  continues  until  the  total  amount  of  work  generated 
e  ceeds  the  target  value. 

The  program  places  an  event  on  the  event  list  to  mark  the 
end  of  the  regular  work  day.  Idle  workers  are  given  jobs  to 
number  on  which  the  first  and  last  entries  of  each  seeerate  list 
are  located.  Each  entry  must  include  the  row  number  of  the  no  * 
entry  on  the  list.  The  linked  list  is  composed  of  six  severs  *  .• 
vectors.  The  information  stored  in  the  vectors  varies  dependin', 
ur  on  the  particular  list  and  p  ath  the  Job  is  on.  Tor  a  comp ». e *  e 
description  of  the  information  stored  m  the  vectors  see  pg .  ?A 

F v e r y  o p e ration  perfo r med  b w  t  h o  mo  ie  l  re o u  i  r « a n  e n t,  r y  I  •  ■ 

*  .-ken  off  c  list  arid  then  place.-;  i .  1  on  a  list.  !  ins  is 

.•  rhieved  by  subroutines  1  ARE  rid  I'd  l  rospe.  t  i vp  1  .  Each  of 

*  base  subroutines  Entries  are  p  I  w.:.x  taken  off  *  he  front  of 

i  \  •- +  ,  The  subroutine  must  be  par  ed  the  locat  ion  of  the  firs* 
.•iid  last  ent  ry  on  the  list.  t.uhrout  l  ne  1  AH  s  e 1  i  flag  when 

f  op  last  ent  ry  of  a  list  nas  been  remove  d.  Ari  ent  ry  may  be 

b  1  seed  on  the  front,,  b-ck  .  or  mi  dd  I  e  nt  a  list  .  entries  place., 
in  the  middle  of  a  list  so  directly  in  f  rent  of  the  entry  with 
1  r  ,  •  i  v  ?  1  ue  in  vector  EVEN  f  .  Furo  out  me  I'd!  a  I  -  u  roomies  1 1  •• 

1  '■.ration  of  first  and  last,  entries  ot  the-  I  i  ■- 1.  .  Addi  t.iorial  Iv 

the  subroutine  needs  the  method  of  ent i  ■  p I arement  .  Both 
subrm.it  ines  use  ari  irit.eser  vet  lor  and  t  wo  reel  i  ;r>  I  es  to 
t  i  vr.ster  the  i  nf  ormatior.  to  t  he  main  r  i  ugram  . 

With  these  two  tools  and  others  which  will  he  discussed  wit-  n 
needed*  it  is  possible  to  begin  the  discussion  of  how  the 
program  operates.  All  references  in  this  section  refer  t.o  the 
logic  flow  diagram  in  Appendix  R .  The  program  first  obtains  t  1 
v  lues  of  the  various  shop  parameter*;  *  initializes  the  linked 
1  i  -  t  .  get  r-  point., rs*  arid  thuii  i  un-  t  he  «  ho:-  to  reach  -,t  pari-* 

-  *  s  i  c-.  conditions  (  pg.  IT;'  I  i  r  •  ri.  tlii-  point  the  simulation 

*  r  r.r  ueds  one  week  st  -  t  imo*  -akin  tor  w"el  l'  info  r  mat  ioii  n  , 

>  •  it  r  •  it  t  i  r>1  \  1  wf  t  k  '  s  t  o'-u  It-.  I'ldrr  t  i  n  •  •  i  mu  |  .-t  mu,  i  r, i  i 

t  I  or.  r  I*  ul  ♦  e-  and  nut  ruts  the  t  a  I  t  -  t  1  j  a  n !  tin'  . 

flu..  -  ui  >  I  nil  t  i  no  a  fir  u  *  f  •  o  t  >  1  t  .t  --it  t  i  ,<-*  ;  ,  -  ..m  i  )  .•<  .  ho: 

:  .  ii,c  t  r  ;  ,  Tf  tfi1'  u-i  r  w  •  ho--,  t  .  i  iv  u*  t;,r-  i  rj  n  r t  ion  <  i  1  i  o  •  *  ! 
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the  program  cells  subroutine  INPUT.  Optionally  the  program 
calls  subroutine  DATA  to  input  the  information  from  a  stored 
data  file.  In  either  case  the  rosram  must  then  call  subroutine 
f ARAM.  This  subroutine  calculates  f ho  needed  parameters  of  the 
nonworkable  delay  time  distribution  from  the  rtiveii  mean  and 
standard  deviation. 

The  model  is  then  operated  for  twenty  weeks  to  hr  ins  the 
shop  to  steady  state  conditions  <  p.s.  2A  >.  After  the  shoe  has 
been  initialized  the  current  shop  status  is  outputted  (  See 
Appendix  C  ).  The  prosram  then  prompts  for  the  information 
reouired  to  simulate  the  upcoming  week.  The  information 
reouired  is  the  induction  target  value,  amount  of  overtime,  and 
numher  of  workers  transferrins  in  or  out  of  the  shop.  The 
efficiency  ratios  of  each  worker  is  updated  by  one  week. 

Transfer  of  workers  in  or  out  of  the  shop  occurs  ?t  this  point  ( 
PS.  3B  ). 

Jobs  are  generated  and  given  an  exponentially  distributed 
job  size  (  ps.  3B  ) ,  A  certain  percentage  of  these  Jobs  are 
then  placed  on  the  nonworkable  backlos  and  the  rest  are  placed 
on  the  workable  backloS.  When  a  Job  is  placed  on  the 
nonworkable  backlos  the  program  calls  subroutine  DELAY  to 
compute  the  delay  time.  The  delay  time  distribution  is  a 
two-stage  erlans  distribution.  This  delay  time  is  added  to  the 
current  clock  value  and  adjusted  so  that  the  move  time  is  not 
when  the  shop  is  closed  for  the  night.  When  Jobs  are  Placed  on 
the  workable  backlos  the  program  computes  Ion  percent  of  the  ch 
size  and  stores  this  value  with  the  entry.  Jobs  are  Senerated 
until  the  total  amount  of  work  generated  exceeds  the  inputted 
target  value. 

The  prosram  begins  the  simulation  by  placing  an  entry  on  the 
event  list  to  indicate  the  end  r>1  the  day.  Next,  the  workers 
+  oat  are  idle  are  given  iob  -•  from  the  workable  backlos.  hove 
+  ime  for  these  Jobs  are  determined  by  c-ddir.s  Ihe  current  clorj 
lue  to  the  a?-  r-roF  r  iate  amount  of  the  job  size .  I  his  value  1 
■'it  her  ter.  percent  or  90  percent  depending  on  whether  the  job 
has  been  in  process  before  (i.e.  Job  is  on  paths  3  or  4).  Ihe 
work  err  efficiency  rating  is  u<*eb  to  adjust  the  move  time  to 
r  ‘  1  ec  t  the  a  dd  l  *  ions!  time  needed  by  adjusting  workers.  Who;  i 
w>>  k  r  t  St  e?.  a  mb  his  idle  t  i  me  i:  r»mr ut.od  o*(  .uhroutine  1  i  !•!  t 
Ti‘a-  con!  iriue?  uritil  either  no  wot  kern  are  idle  or  rio  dobs 
r  •  -  ii.  s  i  n  on  t-he  works  Me  hack  los. 

Simulation  proceeds  bw  set  tin  ,  the  clock  ecual  to  the  mo  .<*• 

*  litic.  of  the  first  er.tr  w  ori  the  event  list.  This  orit  ry  is 

r  erne,  red  arid  the  program  check  s  t  o  se*  uba  t  the  next  ore rati  or. 

(  ;■  a .  jB  ).  If  the  Job  r  s  rone  l.Utd  then  the  prosram  must 

•  it  date  the  pppronr  i  ate  statistics  a  no  counters  .  Then  subro  Mr 
NF  W  JOB  is  called  to  give  t  he  lr>  rd  worker  another  job  if  ore 

liable.  When  no  Jobs  are  ?v;  i  I  ah  I  e  t  lie  work  er  is  f  lass*".,-; 
i  d  J  f  •  until  one  becomes  a  vs  i  1  ah  |  e  ,  Other  wise  the  ioh  is  eitli.-  i 
-ins  from  the  nonwork ebl o  to  the  work  able  hack  loss  or  in 
process  with  ten  percent  completed.  In  the  first  case  the  yon 
is  placed  on  the  workable  backlog  directly  if  already  i  r.  r  to,  c  ■ 
before,  arid  if  not  then  the  ten  percent  value  ot  the  ioh  sic.  \ 
determined  arid  stored  with  the  entry  or.  the  workable  hackin’,. 

T  n  t  tie  second  case  the  progism  will  ‘■■end  t  ),e  ioh  to  the 
rinriuo  r  k  ah  J  e  ■  h  d  Im  ->  given  y|i  entaSr  of  t  ne  time.  while  t ; ■ 

I  rorit  irnif-  t  c  <  be-  worked  m.  ml  i  l  (  omr  I  <  ‘  on.  1  he  I  t 


Kf  t 


possibility  is  that,  the  end  of  day  indicator  is  taken  off  the 
event  list.  Until  this  occurs  the  program  loops  he*  k  and  taker 
the  next  event  off  the  event  list. 

When  the  end  of  the  day  indicator  i-.  talon  ott  t.tie  event 
list  the  proa  ram  must  do  several  t  unss  <  eg  6H  >  .  1  he  first 

thing  is  to  rut  the  end  of  day  in<  ator  for  the  next  day  onto 
the  event  list.  After  do inf  this  the  prod  ram  then  determines 
whether  or  not  workers  ere  to  " >  overtime  and  now  much.  If  no 
overtime  is  available  the  move  times  of  jobs  bema  worked  on  ere 
adjusted  to  occur  during  the  next  day.  This  requires  that  ♦ ho 
oh  first  be  found  (  It  is  not  necessarily  t  he  fir*  t  entry  nr. 
the  event  list  )  end  then  placed  back  on  with  the  adjusted  move 
time.  Subroutine  RF.SORT  is  user!  to  perform  both  of  there 
operations.  If  overtime  is  available  the  the  Job  is  either 
worked  on  for  the  overtime  interval  and  then  adjusted*  or 
completed  freeing  the  worker.  When  a  job  is  completed  during 
overtime  it  is  treated  exactly  as  before  and  the  worker  is  «•  j  en 
s  new  Job  if  it  is  available.  If  the  worker  receives  a  new  job 
during  the  overtime  period  its  move  time  is  immediately  ad just  *  d 
to  the  next  day.  This  means  that  a  worker  can  not  complete  more 
than  one  Job  in  any  single  overtime  period.  After  all  the 
workers  have  been  dealt  with  the  program  starts  another  day. 

This  continues  un+il  five  days  or-  a  week  have  been  completed. 

When  a  full  woT-k  week  has  been  simulated  the  program  out  pu •' 
toe  contents  of  the  backlogs.  Included  in  this  output  are  the 
worker  idle  time,  work  completed*  average  flow  time*  and  n urn he  s 
of  workers  in  the  shop  <  7£«  )  .  This  information  with  the 

exception  of  the  average  flow  time  is  updated  continuously  an- 
ic  available  at  any  time .  The  average  flow  time  i  *.  computed 
the  end  of  the  week.  The  out  put  u:  goner; led  by  subi  c-utine 
OUIT'UT.  The  program  will  then  *.t  if  <-  r  her  weed  ;  t  o  he 
s  1  ni *  1 1  at  ed  . 

When  no  more  weeks  ai  ■>  to  i»e  i  mu  l  the  r-  r  •-•-■.<  comput 

•  ve:  •-  t  ando  r  d  dev  l  ?f  teu  of  t  :  •  flow  +  i  me  *  i  ;  mi  ;b  t  *  ■■ 

.  of  .  subroutine  i  IN  At  i:  theri  cal  led  :,n*i  tl  r  •>  ml  m  <r*  t  i  on 

•Txd  w  i  1.  h  the  total  idle  k  im*-'*  .•ohs  com:  • .  ted  *  '■  <  iwin 

-  oji  |  p  let  ed  are  outputted  .  Ihc  sub  rout  me  al  :-o  <  omr  u  f  es  t  hr 

efficiency  and  outputs  i  t  f  no  *  frog  ram  oxenjk  i  >  >  •  i  t  fieri 

■  » i  m  l  ns  ted  . 
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Shop  be  hem r>tic: 
npniorw  Storage 


Me  c  t  o  l 


Contents  tor  entry  on 
ur. i  k :-h  1  p  ba c k  1 03 


E  AH  Nf 


ten  percent,  of  the  job 
s  l  rre 


E  LOW 


Mel  up  of  clock  when 
Job  was  stone  rated 


JOBS  I Z 


Job  size 


REMAIN 


Ninety  percent  of  Job 
s  i  ze 


DIRECT 


Row  of  next  entry  on 
Workable  backlog 


WORK 


0  if  not  being  worked 
on  and  the  worker  # 
if  it  is 


Vector 


Lontont s  tor  entry  on 
N  o  n  w  o  r  Y  a  b  1  e  b  n  c.  Y  I  o  s 


f:  VI  ft  f 


I j me  until  job  moves 
i n  mode l 


H.OW  Value  of  clock  when 

job  was  sfene T'3+ eo 


JOE<BIZ  .lob  oise 


RFMAIN 


DIRE Cl  Row  of  next  entry  on 

Nonworkable  baeklod 


--2  if  froni  in  process 
-- 1  if  never  in  eroces 


WORK 


4  A 


Vector 


Contents  for  entry  on 
Worker  list 


EVE.  NT 


efficiency  retina  for 
current  week 


FT  OW 


JOBS  I Z 


Number  of  weeks 
worker  has  been 
in  the  shoe 


REMAIN 


-1 


DIRECT 


Row  of  next  entry  on 
Worker  list 


WORK 


-  11 


Determine  Tarsfet 
Value  for  Inductions 


Reset  Statistics 
and  Counters 


o 

1 


Il  ic  re  merit  Iif>y  Counter 
a  not  Wee>t  Timer 


r  ermine  t.  e 
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1 1 St  MAN 


i  ■ 


I  r  i  r-ti'ir  +  r,?  i  r>  n  id  p 1  ngram  wa  ~  wri  tten  1  o  i  ■  i  -  j  n  t.raimif 
r  i edur* 1  on  cnnttnl  fpi  onne!  .  !  hr-  m  sin  nh  iprt  1  vr-  is  In  i  v*  ♦  : 

•>  t<  pi  for-  hou  t  hf  <  ho:  or*or-:  tnr  .  !  t  j  ■  r  o-  ■  1  i . )  .  •  to  '.•••* 

♦S*'  .  •  (  f.-o  t  •  "f  varioun  -r.h**dul  ins  dec.  is  ions  on  t.he  'ohon. 
t '  r  u r  -<ni  SHOP  wna  i  nt  ended  as  a  lpsrnin?)  tool  sod  ahniil'i  be 
t.  t  e  - 1  •/]  as  51  ir  h  . 

1Iik  shop  is  composed  of  three  basic  elements!  the  workrh]. 
i  1  r  k  l  od  area »  the  rionuorl  able  backlog  area  »  and  the  process  1  no 
in?  ■  =.pe  pe .  1  A)  .  Johs  arrive  at  the  shop  and  normal  1  v  are 
'Titered  into  the  workable  back  log »  to  await,  processing  by  an 
available  worker .  If?  for  some  reason  1  3  job  cannot  be 
:  7  crossed  ■  as  is?*  it,  is  entered  into  the  nonwork  able  backlog 
Usually  Jobs  will  be  placed  in  the  nonwork.ahle  heck  loss  becs'.r  ■ 
of  the  nonavai  lability  of  a  part  or  technical  data  reaui  red  for 
r  recessing .  Once  the  nonavailability  is  satisfied?  the  job 
returns  to  the  workable  backlog. 

Jobs  move  from  the  workable  backlog  to  the  processing  --e 
as  needed .  Sometimes  ?  during  the  initial  disassembly  of  a  .<  .u • 
it,  is  determined  that  an  additional  psrt(s)  is  needed  to 
complete  the  Job.  If  the  partis)  is  not  available  ?  the  Job  is 
entered  into  the  nonwork.ahle  backlog  (see  Figure  1).  When 
processing  is  completed  on  a  Job?  it  leaves  the  shop. 

1  his  manual  is  a  step  by  step-  disc  ri  pf  ion  for  operating  t  u .  • 
r-  ro.gr  am  *  SHOP  *  .  The  program  is  a  si  mu]  at.  ion  model  of  a  topics! 
N.A.R.E.  shop.  To  run  the  program  type  1 n  *RUN  SHOP*.  In  the 
following  text-  program  instructions  and  d  •  selaus  3  re  identified 
by  (PROG) ?  Input  to  the  program  is  reoui  red  when  you  see  ( USER '  . 

At  the  beginning  of  the  program  you  must,  choose  an  option 
for  entering  the  initial  parameters? 

(PROG)  DO  YOU  WISH  TO  INPUT  PARAMFTEP5  YOURSEI.F?  CY/N3 

(USER)  If  you  enter  *N*  the  the  parameters  will  be  read  froni  a 
stored  data  file. 

If  ’you  choose  to  input  the  parameters  yourself  then  the 
r-rosram  will  prompt  for  the  information  as.  seen  in  the  next 
section.  If'  you  choose  to  read  the  values  from  a  stored  file 
t  neri  skip  to  the  section  after  the  second  line  of  aster  iks  <  **** )  . 

****** ***************************************************** ********* 

(PROG)  INPUT  PROBABILITY  JOB  IS  DETERMINED  NON- WORKABLE.  UPON 
ENTERING  SHOP. 

(USER)  Enter  the  probability  as  a  decimal  number  between  0.0  and  1.0, 

(PROG)  INPUT  PROBABILITY  JOB  GOES  NON- WORKABLE  AFTER  START  OF 
PROCESSING. 

MISER)  Same  as  above. 

(PROG)  INPUT  MEAN  DELAY  T I  Hi  IN  HAYS. 

MISER)  Number  must  include  decimal  point. 


Jl  - 


U‘J  *, fj 


'  f  ■  F  ■  i  .1 L’  >  INPUT  s  T  AN  DARI  i  DEVIATION  OF  Mini  I  IMF  . 

<  1 1 P  P  P '  S  a  m « •  •-»  s  3  h  o  v  e  . 

MROG>  INPUT  INTFGER  (OHM)  SEED  FOR  RANDOM  NUMM  k  GENERATOR. 
(DORR)  Seed  must  be  an  odd  integer  between  -99  sun  99Q* 

(PROG)  INPUT  A  UP  R  A  UP  JOE:  SIZE  IN  STANDARD  MAN-HOURS. 

( OS PR )  l nte r  number . 

(PROG)  INPUT  NUMBER  OF  WEEKS  UNTIL  TRANSF  E'RFD  PERSONNEL  ADJUST  T  It 
AND  WORKING  PULL  EFFICIENCY. 

(USER)  If  worker  is  at  full  efficiency  during  third  weep  then 
enter  3  *3' . 

(RROG>  INPUT  EFFICIENCY  RATING  OF  IRANSFERPD  WORKER  FOR  FIRST 
WEEK  IN  SHOP. 

(USER)  [ f  the  worker  is  expected  to  work  at  00%  efficiency  then 
enter  *0.0'. 

(FROG)  INPUT  EFFICIENCY  RATING  FOR  NEXT  WEEK . 

(USER)  The  prodram  will  ask  for  efficiency  ratings  for  all  bu  + 
the  last  week  of  the  adjustment  peri o'1.  The  program 
su  les  that  the  loot  week  in  the  rpricui  is  done  at  full 
efficiency*  so  it  assigns  a  rating  of  1.0. 

XVttttXtitttttykt.*************’;******.)  t*****%***t1li*%********'*t  It  *  i 

< FROG >  INPUT  NUMBER  OF  WORKERS  IN  SHOP  AT  START  OF  SIMULATION. 

(USER)  Enter  number. 

Any  error  in  the  input  data  will  result  in  the  Question 
beind  repeated.  If  you  choose  to  read  the  parameters  from  the 
dat3  file*  the  program  will  still  prompt  you  for  the  number  of 
men  in  the  shop. 

After  the  parameters  arc-  entered  the  program  initializes  the 
chop.  This  is  accomplished  by  operating  the  shop  for  twenty 
weeks . 

(PROG)  MODEL  BEING  INITIALIZED 

The  initialization  process  causes  a  short  delay  after  which 
the  program  displays  information  on  the  backlogs.  The 
information  is  displayed  in  the  following  format. 


>v  _ 


f  poo  ■ 


rf  *;ui  is  f  or  wffk  o 


NO.  OF  HOURS  OF  WnRi 
XXXX. X 

xxxx.x 

WORKS  RS  WERF  I  HI.  f)  XXX.  X  HOURS. 

WORK  CO  MR  l  FEED  THIS  UFFK  TO!  At  .1.0)  XXX.  X  HOURS. 

AVERAGE  ROW  T  IMF  XXX.  X  DAYS. 

NUMBER  OF  WORKERS  IN  SHOP  IS  XXX. 

I  he  prodram  will  then  prompt  you  for  the  information  on  the 
nr  r  om  1  ns  week  . 

(PROG)  SUPPLY  INDUCTIONS  TO  SHOP  FOR  UPCOMING  WEEK. 

(USER)  Enter  the  target  value  for  the  week  in  hours. 

(PROG)  INPUT  OVERTIME  HOURS  AVAILABLE  THIS  WEEK. 

( USER >  Enter  the  total  amount  of  overtime  hours  available. 

(PROG)  INPUT  NUMBER  WORKERS  TRANSFERRING  TO/FROM  SHOP. 

(USER)  Enter  a  positive  number  if  transferrins  into  the  shop » 
and  a  negative  number  if  leaving  shop. 

The  program  will  then  display  the  results  for  thp  week,  in  the 
same  format  as  above*  and  ask  if  you  wish  to  continue. 

(PROG)  DO  YOU  WISH  TO  OPERATE  ANOTHER  WEEK?  CY/N1 

(USER)  Entering  a  "N"  results  in  output  of  final  statistics 
and  termination  of  program. 

Final  results  of  the  simulation  are  outputted  in  the 
following  format. 


BACK  I  OG 
WORKABLF 
NON-WORKABl E 


NO.  OF  JOBS 
XXXX 
XXXX 


-  n  - 


w  m  ■ 


USFMAN  f;^p  0 


(PROG)  FINAI  RFSti.  is  FOR  XX  WEF  S 


XXX  JOBS  W1  Rf  CO  MR  IF.  TEH  TOTALLING  XXX.  X  HOURS  OF  WORK. 

AVERAGE.  FLOW  TIME  WAS  XX.  X  DAYS  WITH  A 
STANDARD  DEVIATION  OF  XX. X 

WORKERS  WERE  IDLE  FOR  XXX, X  HOURS 

SHOP  OPERATED  AT  XX.  X  7. 

There  are  two  conditions  which  will  cause  the  program  to 
I  erminated  prematurely . 

(1)  Number  of  jobs  in  shoe  exceeds  the  max i mum  number  of 
jobs  allowed. 

(2)  Last,  worker  in  shoe  is  transferred  out. 


It  should  be  noted  at.  this  point  that  the  major  factor 
affecting  the  overall  operation  of  the  shoe  is  the  status  of  the 
workable  back log ♦  Operation  of  the  model  for  a  period  of  weel 
should  show  that  worker  idle  time  increases  when  the  content  of 
this  backlog  is  low.  Any  increase  in  idle  time  will  lower  the 
efficiency  of  the  shop.  At  the  same  time  it  is  important  that 
the  workable  backlog  does  not  become  to  full.  This  would  result 
in  a  larger  non-workable  backlog  which  in  turn  increases  the 
storage  space  needed. 
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I  01' 1  RAN  IV 
■  :n>  ii  ■ .  l'H0F‘--C;.| luF' 


FRI  1?  i 


. :  4A : o  7 


rit* *******  ********** 

lit  f -roc-ram m  n  by  : 

r  *  * 

t  *  * 

c  ** 


***********  i.  ********  M*******  ************* 
J.  IIN  C  Gil.  HOUR 
It  HIM  .1  HODGSON 

I  NDUSTRLAI.  AND  CY'.IFMG  F  K  ,  F  Nf  F  P  !  NG 
UM  1  VI.  F\C  IT  Y  OF  FLdRIMA 


C**  t,M  INF  SVTI  I  F  .  FLORIDA  SKI  1 

C.  **  TELEPHONE  (901)39?  1-104 

C  ************  *.*************************************************t*t**t 


T ML  FOLIOWING  PROGRAM  IS 
N.A.R.F.  SHOP.  JO PS  ARF 
CONTENT.  rHF.  FOU. OWING  1 
AMD  THFIR  DEFINITIONS. 


A  SI  MOL.  ATI  DM  MODI  I  FOR  A  IYPII. 
SCHEDULED  }:)  STAMUARD  MANHOUR 
S  LIST  OF  THE  MAJOR  VALUABLES 


PI  =  PROBABILITY  JOB  IJ  T I  I.  GO  MOM- WORK  API  F  UPON  FN1R 
SHOP . 

P2  =  PROBABILITY  JOB  WIFI  GO  NGN- WORK  ABLFi  AFTER  P 
INC  HAS  BEGUN. 

KAMI  %  L.AM2  =  PARAMETERS  FOR  DELAY  TIME  MSTRIPUT 
MM  JOB  =  AVERAGE  JOBSIZL  IN  MANHOURS. 

DMEAM  --  MEAN  DELAY  TIME. 

DSTDFV  =  STANDARD  DEVIATION  OF  DELAY  TIME. 

NWK  =  NUMBER  OF  WEEKS  UNTIL.  TRANSFERF  D  PF  RSONM!  .. 
FULLY  ADJUSTED. 

NORMFN  =  NO.  OF  REGULAR  WORKERS  IN  SHOP. 

ADDMEN  =  NO.  OF  WORKERS  TO  BE  TRANSFERF  D  IN  OR  Oil 
OVRTM  =  HOURS  OF  OVER  TIME  AVAILABLE  FDR  WEEK. 

HOUR  =  TARGET  VALUE  FOR  SCHEDULING  JOBS  FOR  WEF K , 
EMPTY  =  ROW  NO.  OF  FIRST  EMPTY  [JURY. 

WQF  =  FIRST  ENTRY  IN  WORKABLE  QUEUE, 

WQL  =  LAST  '  •  •  , 

NUQF  =  FIRST  ENTRY  IN  NON-WORKABl E  QUEUE. 


GO  NON-- WORK  ABLE 


IKR  PROLF 


T IMF  DISTRIBUTION. 


ENTRY  IN  WORKER  LIST 


EF FIE CENG Y 


C**  NWQF  =  FIRST  ENTRY  IN  NON-WORKABL. E  QUEUE.  ** 

C**  NUQL  =  LAST  ...  ■  .  <% 

C**  WRKF  =  FIRST  ENTRY  IN  WORKER  LIST.  * • 

C**  WRKL  =  LAST  1  ** 

C**  II  X  12  =  SEEDS  FOR  UNIFORM  RANDOM  NUMBER  GENERATOR.  M 

C**  CLOCK  =  TIME  SINCE  SIMULATION  STARTED.  ♦  » 

C**  TIMER  =  *  ‘  WEEK  STARTED.  ** 

C**  MAXL.ST  =  MAXIMUM  NUMBER  OF  ENTRIES  IN  LIST  ** 

C**  FOR  EACH  J  ** 

0**  JOBS  I Z  ( J )  =  JOBSIZF!  IN  MANHOURS  FOR  A  JOB  OR  EFFJECENCY  ♦* 

C**  RATING  IF  A  WORKER.  +  * 

C**  EVENK J)  =  TIME  TILL  JOB  MOVES  IN  MODEL.  ** 

C**  REMATN(J)  =  TIME  REMAINING  IN  JOB.  t* 

C**  DIRFCT(J)  =  NEXT  MEMBER  IN  LIST  AFTER  MEMBER  J  *♦ 

C*»  WORK ( J )  *  STORES  WORKER  NO.  AND  OTHER  FLAGS.  *  * 

C**  FLOW(J)  ~  TIME  JOB  ENTERED  SHOP.  t‘ 

C  Mr  JOB(J>  -  DIFFERENT  ELEMENTS  OF  ENTRY  TO  LIST.  *♦ 

C**  EFF(J)  -•  LFFICIECNY  OF  WORKER  IN  WEEK  J  AFTER  TRANSFER.  *  * 

i ;**  OTHER  VAFU ABIES  ARF  USED  IN  VARIOUS  SECTIONS  OF  THE  PROGRAM  V* 

r ********************************************************************** 
IMPLICIT  I N T  E G  E R *  2 ( B  Q  » S - Z > 

I  Nl  F  ‘TI  P  REMAIN.  ADDMEN 
Rf.ALtS  A VFLOW , SDFLOW 

RFAI.  EVENT,  PI , P2 , MN JOB » LAM 1  .LAM2.CL  OCK  ,  T I  ME  ,  EFF  (  6  ) » IDl.TM » 

*  HRWK  ,  FIRNWK  ,  HRDONF  ,  T  URDNF. ,  CFIRDNF  ,  TOT  IDL.Ft  Oil , 
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I 


.  *  ■  ..Vi—  .  —  i  iu  a-  oij.<  ij  i  v/.j  .  putW/  EAIjL  002 

SMOF*»SHOP=SHOP 

*  TOTFl.O  f  PREFLO » SQFLOW 

0005  COMMON  EVENT ( 1000 ) » FLOW < 1 000 > , JOBS I /< 1 000 > , REMAIN ( 1 000 ) , 

*  DIRECT (1 000 ) »WL1RK( 1000) , J0B(3> 

0006  LOG  I  CAL*  1  ANS » RF.PL  Y  »  YES  *  NO 

0007  DATA  YES/ '  Y  '  /  » NO/ '  N '  /  > MAXLST/ 1000/ 

0008  CALL  ASSIGN ( 6 » ' T 1 5 ' ) 

000V  CALL  ASSIGN(3» 'DATA. DAT'  ) 

C************************************* ********************************* 
C**  INPUT  PARAMETERS  AND  CONS  1  RAIN TG  ** 

C  ********************************************************************** 
0010  TYPE  4 

ooll  4  FORMAT  ( 10 ( / >  »  20X »  25 ( ' * ' ) /20X » ' *  N.A.R.F.  SHOP  MODEL  *'/20X» 

*  25 ('*')// 

*  '0  THIS  PROGRAM  IS  A  COMPUTER  MODEL  OF  A  TYPJCAI  V 

*  '  N .  A  ♦  R .  F  .  SHOP.  TO  INITIALIZE  MODEL  CERTAIN'/ 

*  '  PARAMETERS  ARE  NEEDED .  THE  PROGRAM  ALLOWS  DIRFCT'/ 

*  '  INPUT  OF  PARAMETERS  OR  READS  FROM  A  STORED'/ 

*  '  DATA  FILE  *  DATA . DAT  * .  TO  USE  THE  PROGRAM'/ 


L 


im  i  ; 

■  .1  3 
•'>014 
"OIL 
0  1  6 
1  1 1  8 


in  i  y 

t,  ;  ^  0 

in  ' 


■I  » 


* 

* 

* 

* 

* 

* 


INPUT  THE  INFORMATION  PROMPTED  FOR.  THE  FOI  LOWING' / 
INFORMATION  IS  PROVIDED  EACH  WEEK?  CONTENTS  OF  '/ 
BACKLOGS >  HOURS  WORK  COMPLETED >  HOURS  IDLE  >  AND'/ 
AVERAGE  FLOW  TIME.  FINAL  RESULTS  SHOW  HOURS  WORK'/ 
COMPLETED >  HOURS  1DI.E»  AVERAGE  PLOW  TIME*  STANDARD// 
DEVIATION  OF  FLOW  TIMF »  AND  SHOP  EFFICIENCY.'/) 


50 


6 


TYPE  6 
FORMAT ( / 


WANT  TO  INPUT  PARAMETERS  YOURSELF?  CY/NJ 
ANS 


$) 


4  0 


READ  ( 6 » 35  *  ERR=30 ) 

FORMAT! A1 ) 

IF(ANS.NF.YES)  GO  TO  40 

CALL  I NPUT ( PI  *  P2 *11*12* DMFAN *  DSTDEV *  NWK *  MN JOB  *  NORMFN , Lf f  > 

GO  TO  45 

IF(ANB.NF.NO)  GO  TO  30 
CAl.  L  DATA  (  PI  »  P2  *  1 1  *  1  2  *  DMFAN  *  DSTDEV  *  NWK  *  MN  JOB  *  NORM!  N  *  Ff  F  ) 

45  CALL  PAR AM ( DMFAN *  DS 1  DEV  *  LAM1 »l  AM2 ) 

TYPE  46 

4  FORMAT  ( 10 (  /  )  *  '  MODEL  BEING  INI  I  T  At  IZED '  >  10  (  /  )  ) 

t  ■  *  *  **** *************************** ****** *********************** ****** 

f **  INITIAL  LIST  IS  EMPTY  *  *. 

i  **  *************************************************  ********)|:** :***  *  i  **  * 

MXI.ST1  =  MAXLST-1 
DU  50  M= 1 t MXLST 1 
50  DIRFCT (M)  =  M+l 

DIRECT  (MAXI.  ST)  =  0 

I  4M*+ ********************************************************** ******* 
I.  **  INITIALIZE  POINTERS  ** 

r  *************************************************** ******************* 

FI  AG  -•  1 
TDIJ:  -  0 
NO JOB  =  1 
NUQF  =  0 

nwqi  =  o 

WOT  ■-  0 
wm  -  o 
WRKL  U 
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iiRfRAN  P.> 

'  MO1'.  .HOP  'HOP 


V 0  2 .21 


PR!  12--JUN 


4,-. :  o  ? 


r-Ar,r  O" 


,\  \  *;■> 

WRKF  ••  0 

LMP1  i  1 

.  •  ■  1  > 

WEEK  -  0 

■'>*4  1 

JOBWK  -  0 

-  "j4  2 

HR UK  =  0.0 

4 

JOBNUK  =  0 

i  '0 44 

URN UK  =  0.0 

no. is 

CLOCK  =  0.0 

0  <  ■  -1 6 

FIRDONE  =  0.0 

"047 

THRDNF  =  0.0 

8048 

IOTELO  =  O.o 

i  >  o  4  9 

son.  no  =  o.o 

1  1 0  S  o 

SUM  -  NORMEN 

'X)M 

ITR  =  NORMEN 

C**************************************************** ***Y***  *  t  10(0*8 

C** 

GENERA! F  WORKERS  ** 

C***********************************************************Yt.lY  1  >  *  *  *  *  * 

'  1 1  ‘i r- .  o 

DO  60  K~'  1  *  NORMEN 

i  .i>S3 

JOB < 1 )  “  NWK 

<>054 

1  IMF  =  1.0 

"\>c'.5 

JOB ( 2 >  -  -1 

l  >  (.1 5  s 

JOB ( 3 )  =  0 

o  0  5 

PNT  =  EMPTY 

' '  ■ )  S  R 

C  A L L  F  l)T  (  W R K F  .  W R K 1.  »  0  *  T I M F  r  R F l.  0 W  »  F M P T  Y  ) 

0059 

60 

CONTINUE 

0060 

HOURS  =  NORM  F.  NT  400 

0  o  6 1 

OORTN  =■  0 

no  6  2 

ADDMFN  =  0 

'■.'063 

90 

IF  <  WEEK  ,  F.0 . 70 )  FI  AO  =  0 

0065 

WEEK  =  WEEK+1 

0066 

IF  <  FI.  AO. EO.  1)  GO  TO  200 

0068 

WEEK  =  0 

0069 

CAL  L  OUTPUT ( JOBWN  >  HRWK *  JOBNUK  t HRNWK , CHRDNF . WEEK  > SUM » 

*  IDLTM> AOELOW) 

0070 

RHOUR  -  HRDONE 

0071 

JCOMP  =  0 

0072 

JBWK  ~  0 

0073 

lOTirn,  =  o.o 

0074 

RDELOW  =  TOTFLO 

0075 

RSPFI.  0  =  BQFL.OW 

C***» 

*  **********************************  ****#*##+************  Ft**’*'***** 

C** 

INPUT  DATA  FOR  UPCOMING  WEEK  *  * 

C***>(.****************************i***** *********.*****************  ****  *  * 

0076 

100 

WEEK  ---  UFFK+1 

0077 

IDL.TM  =  0.0 

0078 

115 

TYPE  116 

00  79 

1 1 6 

FORMAT ( / '  SUPPLY  INDUCTIONS  10  SHOP  FOR  NF XT  WFEN  (HOURS)  '>*) 

0080 

R F  A  It  (  6  f  1. 1  7  »  F  R  R  =  1 1 5  >  H  0 UR1' 

0081 

1  t  7 

FORMA  1 ( 15) 

008  2 

HOURS  -  HOURS* 10 

008  .< 

1  80 

TYPF  121 

008  4 

1  7  l 

F  ORMAT </"  INPUT  00 FR T I ME  HOURS  AVAILABLE  THIS  WEEK.  '  »$) 

0088 

R FAD  <  6 »  1  1  7  r  F:  R R - 1  2 0  )  0 OR T M 

0C'«H9. 

1  85 

TYPE  126 
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p  fv'i  1 2- JUN-81.  or. : 4a : o  > 


PAM  "•'» 


i  i  tp  r f  AN  iv 

'  i  :op  .  M  ii  iF'--':UI0P 

•  1.'.:  rrikMlM  (  ofMF-m  NU  HI ‘PR  WORKERS  TRANS)  )  RR  I  N'  ■  10  P POM  SHOP.  i  ; "  t 

*  '  POSITIVE.  NUMBER  If  1  RANSU  RR  T  N.6  IN  I »  SHOP,  AND 

i  Nf  GAT  I  VP  NUMBER  If  IPAVINN  SHOP.  Ml  > 

Pc P  A 1 1  < . »  1 1  / » f ’  R R  =12 5  >  ADDMEN 

i  t  *  n  *  t i.  *****************************************  ******* 

**  UPDATE  WORKER!  STATUS 

i  *  *  t ***  *.**  **  **  *********************************  ****  ***  *  ****  I  i  *  *  *  *  (  )  p  *  •  r 

"AH  '  I  10  PNT  =  WRKF 

ISO  I F  (  JOBS  I Z  ( PNT  )  .  FO  .  NWK  )  (TO  TO  t/>0 

■  >  0 '  ; '  J  0  B  S 1 7  ( f '  N  T)  =  J  0  B  S 1 7.  ( PNTM1 

■;  EVENT  ( PNT  )  -  EPF  <  JOBS  I Z  ( PNT  >  ) 

•W4  160  PNT  =  D  I RP  CT  <  PNT  ) 

. '5  T  E  <  PN  i  . NE , 0 )  GO  TO  150 

3  ******  ******************************* ***************** **********f  ah  • 
0**  ADD  OR  DEI.  ETE  WORKERS  ’  * 

i;  *****************************************  *******************('**  <***>*> 

Am"'  SUM  =  SUM* ADDMEN 

""  "  IP ( ADDME N , EQ . 0 )  GO  TO  200 

u | on  IE (ADDMEN, IT. 0)  60  TO  175 

A 1 02  DO  170  K~  1 ? ADDMFN 

"10 3  JOB ( 1 )  -  1 

•  !■•'.)  TIME  -  EFF(t) 

"1"'.  JOB(?>  =  -1 

■  I  A,-.  JOB  (7)  =  0 

'>10'-’  IDLE  =  IDL.E+1 

1  ■  1  OB  PNT  =  EMPTY 

1  OR  CALI..  PUT  <  WRKF  »  WRKI  .  0 ,  TIME  , RF1..0W » EMPTY  ) 

o  1  1  0  CALL.  T  IDLE  ( SUM » CLOCK  ,  0 » PNT  t  IDI.  TM .  ITR »  TOT  IDE  > 

0111  CAI  L  NEW JOB (PNT » WOE  » WQL  > NWQF ,  NUOL , EMPTY » JOBWK  » HR UK > 

*  CLOCK » NO JOB  ? I DIE , SUM » I DL  TM . ITR. TOT  I DL ) 

0 1  1.  r>  I/O  CONTINUE 

'"'113  GO  TO  200 

cr*  *************************************************************  tuit** 

C**  DELETE  WORKERS  *» 

C**** ***************************************************** *********  *  * +  * 
0114  175  ADDMEN  =  -ADDMEN 

0115  DO  180  K= U ADDMEN 

a  1  1 6  CALL  DEL  ETE  ( WOF  » WQL » NWQF ,  NUQI..  >  WRKF  .  WRKL.  ,  EMPTY  .  CLOCK .  I  DLL  . 

*  JOBWK f HR WK) 

0117  100  CONTINUE 

C** ********************************************************** ******  ** ** 
C**  GENERATE  INCOMING  JOBS  ** 

C ***********************************************************  *********** 
a  1  ID  200  T HOURS  •=  0 

oil  7  IF (HOURS. EQ.O)  GO  TO  340 

0171  210  MAX  JOB  -  JOBWK  + JOBNWK  +  SUMU 

0123  IF  ( MAX  JOB .  GE. .  MAXI..ST  )  GO  TO  810 

0124  JOB ( 1  )  -  -  AI.OG(RAN(  II  » 12)  )*MNJ0B*10 

oi;>:;  IE(  JOBU  >  .10,0)  GO  TO  210 

01 3  /  RFLOW  -  CLOCK 

' ■  I  7 H  I P  '  RAN (  I  J  f  12)  .  (31  .  PI  )  GU  TU  220 

;*■♦:*******************.*.******.****************************************** 

C**  ENTER  NON- WORKABLE  QUFUE  ** 


Ihl.i 


1 

JOB  •'  3  i 

1 

l  1 

JOBNUK 

JOBNWKJ  1 

1 

FtRNWK  a 

HRNWKJ  .JOB  (  1.  ) 

!  •  *. 

CAL  l  DF 

!  A Y ( T I ML  *  1  1  • I  0.LAM1 » LAM2 » CLOCK  ) 

i  :  . 

CALL  PUT  (  NWUF  f  NWQI.  »?»  LIME  t  RF  LOU  » EMPTY  ) 

1 

GO  TO  2 

70 

i  *  *  *  *************************************************************>*••.  -  > 
>A*  ENTER  WORKABLE  QUEUE  ** 

i  ********************************************************************** 


01  7.  ;>v> 

JOBWK  =  JOBWK+1 

’  i • 

HRWK  a  HRWK+J0B(1) 

'177 

NO  IOB  0 

'  .1  7  9 

M JOB  a  JOB ( 1 ) / 1 0 

■  1  4  0 

TIME  =  0 JOB 

■141 

JOB  (2)  =  JOB  ( 1 )  --D  JOB 

1  t  1 7 

JOB ( 3 )  a  0 

•  i  4  3 

CAL.I.  FT  IT  <  WGF  *  WGL » 0*  T IME  » RFLOW  f  EMPTY  > 

■  l  1  4  230 

THOURS  a  THOIJRS+ JOB ( 1  ) 

'  1  4  5 

IF (T HOURS. LE. HOURS)  GO  TO  210 

f  ;*******************************************************;*****;*******«  +  * 

C**  START  SIMULA EION  * » 

F  **************************  *******************:**  *****************  »***'*• 
•)i  47  240  DAY  »  0 

"1.  TIMER  =  0 

"EM  IF ( CLOCK. NE. O.O)  GO  TO  280 

C ************************************* ************************* ffitflt. 

Ft*  PUT  END  OF  DAY  INDICATOR  ON  EVENT  CHAIN  ** 

C *********** *********************************************************  it 
0101  JOB ( 1  )  =  -1 

0152  TIME  =  80.001 

0153  JOB  (  2  >  --  0 

0  154  JOB <  3 )  =  0 

0155  CALI  PUT ( NWQF  *  NWQI  » 2* TIME » RFLOW > EMPTY ) 

01  <6  280  PNT  =  URKF 

0157  290  IF (REMAIN (PNT) .NE.-l )  GO  TO  300 

0 159  CAL  L  T I  DL.E  (  SUM , CL  OCK  *  0 > PNT  1 1 PLTM  >  ITR » TOT  I DL  ) 

0160  IDLE  =  IDLE* l 

0161  300  PNT  =  DIRECT (PNT) 

0162  IF(PNT.NE.O)  GO  TO  290 

0164  310  PNT  =  WRKF 

0165  DO  315  J= 1  *  SUM 

0166  IF (IDLE  . E Q . 0 )  GO  TO  320 

<>168  IF  (  NOJOB  .  EQ  .  1 )  60  TO  320 

0170  IF (REMAIN (PNT) .NF.--1 )  GO  TO  315 

017?  CALL  NEW  JOB  ( PNT  ,WQF»WQI..,  NWQF ,  NWQF  >  EMF'TY’ »  JOBWK »  HRWK  r 

*  CLOCK  t  NO  JOB  1 1  DU  .  SUM  >  I  DL  TM »  T  TR  »  TOT  I  Dl.  ) 

01.73  315  PNT  =  DIRECT  (PNT) 

C ***  ************************************************* ************* ***  * « 
F **  UPDATE  CLOCK  *  t 

C ****************************** **************************************** 

oi/4  V.’O  CLOCK  -  EVEN  I  (  NWQF  ) 

C******** ********************************************************  ****** 
C**  TAKE  F'TRST  EVENT  AND  TEST  FOR  TYPE 

C ************************************************* ********************* 


. .  1 


I  P  1  l?  I!  IN  ■?,]  . 


•  1  ' 1  1 


9  I  ;•  •  >  , 
t  ■  1  I-”  ' 

■  ■  i  nr.! 

<:  1 

!  • 1 ,  • 

■  |  .■  i 

1  •  t  • 


,  i  i  ; 

■  ■  I  9  4 


' 1 :  0  o 

0/9  1 

o '  o 


n/oj 

020  4 
n  ;'ACI 

0?06 

0/9/ 

rv.’OR 


o  :;■(■? 
".’10 
"ii 
< >/ 1  / 


9"  1  1 
".'15 
".'10 

"/ 1  / 


‘I'll-  "-  MOf 


i  .'.I  !  I  '.I  f  1  ,  MODI  .  I  IMF  •  PI  I  i  HI  •  I  r'.f '  I  i  -  1  . .  I  '  I  • 

n  <  jii{: (  i  i .  r  o .  - 1  i  r.n  to  525 

T  r  (  lit  n  <  /.  ,  1. 1 ' ,  i  ‘  r.n  in  4  js 

!  r  '  mi  •■.in.  o)  r.n  10  4  '5 

[  f  ..  II 1 1 :  (  3  >  ,  f  u  .  -  9  i  l,(  l  TO  5oo 

IF  <PAN<  11  .  [?■>  .01  ,P?)  GO  10  400 

r  F  F  *  *  F  ,  M.MHHMdOOH*  1  F  i  F F  0  F  F  *  1  Ul  HtUt'MIHHFM  F  F  F  F  F  F  •  *  '  V  *  *  I  1  *  ' 

off  .mu  gofs  non- uopi  abi  r  f r-nt-i  if  ftopfo r 

i  i  F  F  F F F F  F  F  F  F  F  *  *  F  F  F  *  *  F  F  F  F  F  F  t  F  F  F  FF  F  FFF  F  i  t  1  F  F  >.  t  F  t  F  F  F  F  F  *  i  F  FF  ?  t  F  I  : 

1 'NT  ~  1010  3) 

JOtn’O  ■  2 

CAI  l  nr  I  AY  (  T 1  MF  *  I  1  >  i:  2  .  LAM  I  .  LAM  2  .  01.  OCR  4 
JO BN UK  -  JOBNUNil 
HRNUK  -  UKNUK+  JOB ( 2 ) 

CAM.  F'UHNWQl  .NWOI  *  2  »  I  I  MF  » PFE.OW  .  FMI '  T  Y  > 

GO  10  350 

i  F F  F  F  F  F  F  F  F  F  *  F  ****###* F  F FFFF F F F  F  F F F F F  F  F  F **********************  ******  ‘  »  *  * 
OFF  JOB  GO  FIG  FROM  NON-  UORKABl.  E  TO  UOPKAEU.  E  ♦  ' 

r  *  FFFFF  F  FFFF*FFFFF****F FFFF  FFF FFFF FFFFF* *******  ("FFF* * *** FF  F  r *  1 t  F .  F (■  r v  <  • 
425  1 1  JOB  =--■  JOB  (  1  )  /  1 0 

I  IMF  -  B  I  or 
JOB  <  2  )  -  JOB  (  1  )  --  0  JOB 
JO BN UK  :  JOB NUN- 1 
URN  UK  -•  MRNWK-JOBf  1  ) 

CALL  RU  I  (  UOF'  .  WOI  .1.1  1  MR  .  PI  LOW  .  f  MF'l  Y  ) 

NO JOB  ~  A 
JOBUK  ~  JOBIJK+l 
HP  UK  ---  HPUMJOB(l) 

GO  TO  3.1', 

GFFFFFFFFFFFFFFFFF FFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFF  F  *  *  *  *  * 
OFF  JOB  STAYS  IN  PROCESS  UNTIL  COMPLETION  M 

0  FFFFFFF  FFFFF  FFFFFFFFFFFFFFFFFFFFFFFFFFFF  FFF  FFF  FFFFFFFFFFFFF  FFFFF  linn 
450  DUMMY  =  JOB ( 2 ) /EVENT ( JOB ( 3  )  ) 

TIME  -  C LOCKE  DUMMY 
JOB  < 2 )  “  0 

RFMAI N ( JOB ( 3 ) )  =  EMPTY 

LA!  1  PUT  (  NUOF  .  NWOI.  .  2.  TIME  .  RFLOU  ,  EMPTY  ) 

GO  TO  320 

r rFFFFFFFFFFFF************************** ******************** FFF FFFFF FFF* 
CFF  JOB  IS  COMPLETED  F+ 

E.  FtFFFFF*FFFFFFF*FF****FFFFF**FF**FFF FFF FFFFF FFFFFFFFFFFFFFF FFFFFFfkt it 

4 y'->  F-nr  -  job(3> 

I  IP DONE  =  UPDONE  +  JOB ( 1  ) 

JCOMP  =  JCOMP+1 

I  01 F  l.  0  ~  TOTE l  0  I  Cl  OCK  RE  I  OU 

9, o r  i  n i.i  s on  ou  t  (i  i  o c k - r f i.  o u>ff :s 

r  F  ** FFFFF FFFF FFFFFFFFFFFFFFF FFFFF FF FFF  FFFFFFFFFFFFFFFFFFFFFFFFFF FFFF  MF 
I  t  *  GTUE  FREED  WORKER  f"  IJ  JOB  Ft 

1  t  *  f  ffff*fffffffffffffffffffff*  *  F.  ? FFFFFFFFFFFFFFFFFFFFFFFFFFF t F 1 1 
v  ,"  PF  MA  I  N  <  PNT  )  =  1 

I  Ml  f  ihle:  FI 

CAI  L.  !  T  B LF  (  SUM  .  CLOCK  »  0  »  PNT  » IDLTM »  I TR  *  TOT  I DL  > 

CAI  I  NF  U  IOB  (  PNT  .  WOE  ,  U0I  .  NUOF  »  NUQI . »  EMPTY  .  JOBUK  »  HR  UK  . 

F  CLOCK .NO. IOB. IDLE. SOM. TUI  TM. TTR.TOTIDL) 


1 1 


:  Hi-'hi'.rJ  | I  ffi  IN-  I  1,1  I 

■  tmi  ■ .  ■  Mi  if  •  <  MM' 


0 

0  7 
o  7  3  / 
1 1 7  7  ? 

0240 
<:  .  •  4 

a  4  4 

7  A  ^ 
e:.'4  6 
024  7 
0  2  4  8 
0250 
0252 
.<753 
i ,  2  5  4 
0  75  s 
0  256 
"257 
r,  ;>S8 
02  6  0 
I 

<  i :  /  7 
('.•/  J. 

fi ;  >  /.  i 


0(1  (II  47(1 

t  t  4  4  *  4  4  4  4  *  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  1  4  4  4  4  4  4  4  4  4  4  4  4  4  4  *  4  4  4  4  *  4  4  1  4  4  4  4  *  4  4  4  4  4  4  ♦  M  +  i  .  *  * 

-  44  III!:  RF  IIIRNS  F  RMI  NON  WORKAHLF  UMMJl  FOR  (  !  inF'L  I' 1  7  OH 

■  *  if  *  *  *  1 4  4  4  4  *  *  *  *  *  *  4  4  4  4  *  4  i  4  *  *  *  *  4  *  *  *  4 4  4  *  4  4  *  *  *  * -i  *.  *  4  i  ♦  *  *  i  * 4  4  4  4  4  *  M  i  *  *  »  *  *  *  4  * 

‘.•i.i  CAM  F  IJI  (UOF  »UIOI  .  I  •  1  IMFMkf  l  OI.I,F  Mi  l  i  '■ 

Ni  l  Ji  ll:  -  0 

JOHN  OF  ■-  1 0  B  N  U!  I  -  1 

URN  UK  FIRNUK-  JOB(?> 

JOITJK  -  KUiUK-F  1 

FIRUIK  --  FIF'WKI  JOB  (  I  > 

AO  1 1'  410 

i  *  4444*4444  *  *  4  4  *  *  4  4  4  4  4  4  4  4.  *  *  4  4  4  *  4-  4  4  *  4  1 4  *  *  *  4  4  4  4  4  4  4  4'  *  4-  *  4: 4  4  4  4  4  4  4  4  t  *  >  t  i  *  •  - 
1*4  Mill  1  10  n'.'F.lc 

i  444444  4  4  4  4  4  4  4  4  4: 4  4  4  4  4  4  4  4  4.  4  4444444444  4  4  4  4  4  4  4  *  4  t  4  4  4  4  4  4  4  4  +  4  4  4  4  4  *  *  +  i  4  (  •  ♦  ‘  > 
i44  Fif  n  F-hlNF  00FK1  IMF  HOURS 

!  4  4  t  4  4  4  4  4  4  4  4  4  4  4  444444444444  4  4  4  4  4  4  t  4  4  4  4  4  4  4  *  4  4  4  4  4  4  1  *  4  4  4  4  4  4  4  4  4  4:  4  4  *  *  ‘  >  > 

O'  II A  V  =  U  AM 

I  T  f  if  t,'  -  I  l  MLR 4 80 
miR  -  oonH/SUM 
/TR  -  10 

IF  <  HFIFV  .01',  (  6-  l.i AY  1  '•  Z1R  --  70 
I  I  MF  -•  1  1  Uf;K4  2-10.0 

CAM  Mil  «  NUIQF  »  N  W  M I  *7,  I  1  f  iF  >R  I  Oil.'  HR!  1' ' 

1  I  on,  n  nt:K-  u.O"! 

1  4  M  *  4  4  *  44  ?  4  4  4  44  4444444  4  4  4  4  4*  4444  4  4  4  *  444  44  4  4  4  4  44  41  *44  4  4  44  4  4  4*  *«<><*>■•  * 
C 4  4  FIN  I  Ml  WORK  F  OR  I  FIR  HAT  * 

R  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  t  4  4  4  4  4  4  4  4  4  4  4  4*44444444444  1  x  1  *  *  +  *  -  * 
PNT  =  UIKKF 
nn  660  M= 1 > SUH 

RTIMf:  =  CLOCK 

I F  (  RFMA I N  (  PNT  )  .  F:  Q  .  -  1  )  GO  TO  650 
IF  (OORTh.EO.l)  Z  IF  =  10 
If  (OVRTM. LQ.O)  7  I  R  “  0 
RTIMF::  =  Rl  IMF  47 IP 
UROU  ~  RF.MAIN ( F'N  1  ) 

RPIF  =  EVENT  <WROW>- Cl  OCK-ZIP 
OORTH  =  00RTM-ZIFV10 
IF  (RMF.LF.O.O)  60  TO  550 
IF  (UROU.NF.NWQF  )  60  TO  520 

C  A I  !..  T  A  K  E  (  NUIQF  >  NWQL  ?  TIM  F  »  R  F  L  0  U  »  F  M  FT  Y  t  ST  AT  U  6  ) 

TIME  T I  ML.il  60 -ZIP 

CAI  I  Rl  IT  (  NWQF  »  NWGI .  t  2  r  T  IMF  » RF  LOW  >  EMPTY  ) 

0  TO  660 

530  PNT  1  =■■  NUOF 

535  PNT  2  H I  RFC  T  (  PNT  1) 

mPF  MAIN  (PNT)  .FU.PNT7)  60  TO  540 
PNT1  F'N  I  2 
GO  TO  535 

540  T I M F :  -  F  Ot  NT ( P N 12)11 6 O •  L  r ' ' 

CAL!  RFSORT  (  PNT  ,  PN  I  1  »  PNT  7  t  F  MR  T  Y  .  NUIQF  »  NUQI  .Ml  MF  ) 

Of)  Ml  /, /, A 

1  **44444*4444*444444*44444 444444*44444+441444444 4 4**444444444 *4444 4 4 44 
1.44  JOB  IS  COMPLF  IF  II  IHIRFN6  OOF  Rl  IMF  MOORS  4 

04*4**4444* 4 44 444444444444444*41 444*4 **4444444444444444444444444 4 44 4 4* 


-  \?  - 


I  if'  1  KAN  IV  V 1  >  2  .  ?  -  1  f  Is  l  tv  KIN  Ml 

i, "I  ••  » it  if ■  ‘  .unp 


’  1 
/ 

■  1 


: :  -i 


■  ■  ;<  ■  it'  vi  ■  mi .  M‘  ,  fjuiji  )  t.n  in 

I  A  l  I  |  ,2  (  ,  Ml  OF  •  NIK  'I  .  I  I  Ml  •  IK  i  I  HJ  •  I  Ml  '  I  Y  .  1  A  I  I".  ' 

till  11-  ‘.(Hi 

F'N'  >  Nwm 

-,as  f K'<  !  2  I  !  RF  •  l  (  RN  (  1  • 

I I  <  I  K  M A  T  N  ( f'N  1  )  .  I  N  .  RN  I  V  >  GO  t  0  b  70 

INI  I  INI.' 

vii  in  s.-.s 

"  H  II K  (  !  i  IN  I  1  )  •=  MINI  C"  I  ■'  PN  1  ' 

U1KP  l  F  '■  F'NI  2)  LMl'Ir 
IMP'M  -  f'NI  2 

•.'in  ill' Ml. INI  HKMUNF  iJOMG  [/ (Ull'KKO 

JCOMI '  M.OMP  1  1 

mill  II  •-  Toil  Lilt  ct.  (HIM  ML  I  I  IM'KWNIII.)) 

HQFL.  OW  =  SOF  LOM  +  (  CLOCK +  l  T. I'  F  LOW  (  UIF^OW  >  )**2 

RF MAIN ( TNI >  =  -1 
Tnu  -  riiLF-n 
A  I  IMF  L LOCK  I  ZTR  +  KMTF: 

LAI  I  I  1  ML  I  <  SUM  .  ATI  ML  .  Or  LN  I  .  I  Ml.  1  M  •  T  I  L  •  !  01  l  Ml.  ' 

LAI  l  NF'U.IOFULNr  .WOF»M(ll  •  NOOF  » ,  KJQ| . .  LMR"(  Y  »  ..lOfK.'K  .  URU/L  t 

*  All  ML  .  NO  JOT;  •  I  HI  F  .  SUM  •  1  Ml  TM  <  !  1  R‘  -  1 1 U  I  Ml.  ) 

i  *  t  *  *  ***  ***  *****  ***********  ***********  *  +  ****  **  t  **  **  *  +  t  ***  *  t  +  *  L  1  <■  *  *  '  ■  ■'  * 

i  *♦  MO  l  if  I  ASSUMFS  THAI  IMF-  RROMAFUL.  I  IV  OF  A  JUF:  MF  I  Nlj  OTA’-'  I  ;  '*  ♦ 

i  tt  ANII  rOMLIlIF.M  IN  inf:  sAMF  OVIRIIMI  I'F  R  Foil  U 

r  *  * 1  *■*  *  **  it  t  ************  .?*********.************  **  t  v*  »  *4  ****** *  ♦  i  it*'  •  *  ♦ 

IT  <  LF  MAIN'F'NT)  .  f.O.NW  Q  F  "■  l,  0  1 I )  6  7  0 

I  r  f  I  f  MA  i:  N  <  LN  1  1  .  FU  .  -  t  )  on  TO  6b0 


0  271 

s:v3 
01."/ : . 
0276 


f'NT  1  -  NUFOF 

10  LN  I  V  ---  UTRLf'  T  (  F'NI  1  ) 

1 F  ( RL.MA  1  N  •:  PN'l  I.FO.  PN  I  2  )  00  TO  620 
F'NI  1  “■  F'NI  2 
GO  ro  610 


0  2  o  7 

>  <  \ 

TIM  F 

-  L  VL.NT  ( F'N  12 )  !  160.0  71  L 

0 .  ’  9  0 

C  A 1  1 

Kl  SORT  (.  RN  1  . 1'NT  1  ,  RN  1  2  ,  F.mR  1  Y  *  NUUf  r  NUNC.  >  1  IMF 

A  w  ."  .' 

GO  TO 

6  A  0 

C;  0  0 

•*>  S  0 

LAI  l 

1  AKF.  (  NWQF  »  NWNL.  r  1  I  ML  .  RF  LOW  *  F  MR  1  Y  r  S  LA  I  US  ) 

AT.  oi 

T  IMF 

=  TIML  +  160.0-Z  IF* 

o  T  o  ? 

CALL. 

RUT  (  NWQFr »  NWQI .  r  2  ?  T  1  ML  r  RF'LOW  r  EMPTY  ) 

A  '02, 

GO  TO 

660 

-  i  0  -1 

CALL 

1  [MLR  (  SUM  t  RT IMF  r  1  , 1  'NT  » I  MI..TM r  I TR  »  101  I ML. ) 

1 1  -.os 

1  MI...F. 

=•■  IMF  F  t 

.  i  •'.(•  '. 

F'NI 

M  l  Rl 'CT(LNT) 

-  1  '1, '  -  7 

IK.ill  t 

-•  CLOLK +  160,0 

'■  <00 

IF  (11  MLR  .  FT) .  1  (MO)  GO  VO  700 

0  7  1  0 

IIMLL 

-  I  T  MLR  +  1.60 

n  1  1  1 

go  ro 

200 

0** ***************************************************** *************** 
r**  WF TK  IS  OVER  ** 

'  *********************************************** *********************** 
O  ',  i  1  700  Cl  IF'.’ I  INF  -  HR  1 1 ONI  THRUNL 

--  -.1  IHF.'HNF  IIKMONF 

- .  ■  i  AVI  I  HO  " 

U  (  JCOMI  .  Ml  .  .I,’MK  )  d"i  |  nU  (  I'F  1 1  i  1  1 1  LI'1  I  I  ' '  1  '  *  iLOML- JMUK  > /?40  .  o 
i  ■  I  Ft.  IF  LN  -  I  OIF  1.0 
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I  in;  I  Km?.'  I  v 


Si’ll  • 


l  .  J.  .N- 


;hup  -suo1. 


i '  •’  1 


,  >  ;•  y.f  , 

07  <o 

.  • 

I  ’>  7  8 

i  >  x  > r' 

f  •;  so 

•  v;- 4 1 


J > :  1*1  K  •  ‘i  AMP 
T r  <  F  I  A>> .  1  .  t  )  GO  i  D  90 

GAi  L  fill  T  t  HI  (  JODUK.HRWK,  JOIKIWF  .HI  NWF  .('HPONI  •  U I  I  r.  ,M)M. 

*  idltm,  Avnnu) 

'10  TYPE  -M 

?1  t  FORMAI  </'  IK.)  YOU  WISH  TO  OPERA  1  f  ANOTHIF  WEEP?  I  r .  N  I  '.S' 
ACCEP1  77?. REPLY 
’  -  FORMA  T  <  A4  ) 

I  f  (  R  f  p  I  Y  .  s-  O  .  Y 1  S  >  G  0  10  10  0 
I F  <  R 1  P  L.  Y  .  F.  R  .  N  0  >  G  0  10  8  0 0 
GO  TO  71.0 

0«>0  RHOUR  =  (HRDONF-RHOURl/lO.O 
TO  Tim..  -  TOT  IDE/ 10,0 

AOF L  OW  =  (  TO  I  F  LO-RDF L. 01) )  /  (  )(.  OHP*240 . 0  ) 

SDFLOW  =  SUM  (  (SRFLOU--RSQFL.O- JG  GIMP*  (  TOTF  LO-  RDFI  'ill)  ) / 

*  < JCOMP-1 ) ) 724 0.0 

GAIL.  F  T  NAI.  <  JCOMP  •  R II 0 U R  ,  T 0  T  I  D I.  ,  W 1  F K  ,  A I- 1  0 0  ,  S DM.  0 LI  > 

STOP 

010  MAX JOE  -  JODWKT JODNWK 

WRITE  (  A,  01 S)  M A X J < ) I> 

8 1  G  E  0  R  M  A  T  (  '  0  M  A  X  I M I  FI  M  JO  F<  l.  1 M I T  E  X  C  F  E  Ti  ED.  '  »  T  4  »  '  J  0  F:  8  IN  .  ‘  U  o  r 

STOP 
END 


'>  1 V  V".' .  ■  1  IE  I  I  :i  IN  !•:  1  ms  ■  '  (  , . 

I  'Ml'  .)!' 

'  1  ;  I  r.’l  |  Nl  II  1  >|  |  ,  f  •  .  |  |  ,  |  .  1 1  ru  An  -  |:  .  |  111  .  f  n  !■  ,  ->fl  lup  . 

■  n  hm-. 

•  r  ♦  ,t  ii  i  i  l  N!  Tfir-in  111  LOU'  Ii:i  !  if  *|  I.’ Mm:  ,m  i  f-|  m  >  m  I  fJ  1  :  i  ■ 

•  *  +  I'Af-'ANl  I  I  ES  A  Nil  1.1)0'.  I  K  A  I  rM'  . 

1  ■)’  III!'  A  nil  INtllllN  III  III1  OAkliil.ll.l  ,  'll  till  MAIN  I  Olio;  V;. 

i  .  *  *  * 

R!  A I  I  .Aril  *1  A  HO  .  MNJOB 
[I  I  hi.  r '■ .  I  •  .r j  F  i  I  ( > 

TYRE 

I  I.i  OH  A  I  1  /  [  Nl  'Ll !  I  NON  AN  II  I  I  v  I  OR  j  ,  ]ii  HRnrrJ! 

t  NON  WUEKARI.J  IH'nN  l  N  |  I  I  I  NO  ■  :|  U  0 ' .  .!> 

F-  F  AH  <  •  i",|  RR-TU  I' I 

!"  f  ORHAT  (I  ’  • .  -1  ) 

I  iF'L  1.6 

FORMA  IF/"  I  Ml 'll!  i  F'ORAL  li  I  TY  .10!:  :  ;i>  '  NUN  Mi  *  I  AM  I  '• 

t  At-  110  MART  Ol  I'L'lli.  F  0.1  NO.  ,1': 

EC  AD  (  /.  *  1  0  r  EFT'  1  U>  O  ' 

I  Y F  t  .'1 

21  I  CIENA  I  <  ■'  '  IMPIJI  MIAN  Dll  AY  II  'lip  i.ni'.  NUNWi.  !•!  AIJ.T  1  f  J  •  . 

*  ( HI  JR  1  FNI  Ill'll  ii|(  i  HA  I.  I'Olrn  I  I  >.  Ai  l;  ,  I  ’  ,  0  ‘  1  >  .  t 

RE  AIM  /  ' ,  f  I'D' >  1 1  HE AN 

F  OEM  A  1(1  I  O  .  n  ) 

TYI'F 

F  OENAi  <  INF'Ul  SIANDAKD  1H. I  A  I  I  mn  i.ii-  ill  I  A  .  T  !  hi.  .  i  M'J  I 

*  TNCIIJDI  Dll :  I  MAI  I'OINi. 

rt  am  f  f ■ . :  "  ?  f  rr-  >  do  i  dev 

I  Til  I 

■I  F  ORMAF  (/'  INPUT  INTEGER  <OUD>  St  I  D  INK'  RAN  in  'h  / 

*  '  NUMBER  (.1.  Nl:  EA  1  OR  .  U  >.  T  ORhAI*)  •  .  t  > 

READ'  6  >  32 1  rRR-IJO  )  1 1 

F ORhAI (131 
12  =  It 
-10  IYRI 

41.  F  ORMA!  (  /  INF'IJI  AVERAGE  JOB  S I  Zl".  IN  STANDARD  MAN-HOURS  / 

*  •'  <  MUST  INCLUDE  DECIMAL  ITU  NT)  '  » J  ) 

RF  AD  (6.43.  F:.  R  R  ~  4  0  )  MM  JOB 

45  FORMAT (F6. 2) 

60  i  ypf;  61 

61  FORMA  X  (  /  '  INPUT  NUMBER  OF  UK  LKS  UNTIL  lEANSEEEED  PER  SONNE  I . 

%  '  ADJUSTED  AND  WORKING  FULL  EFFICIENCY.  (13  FORMAT 

RF AD (6. 32 » ERR^AO)  NUK 
65  TYPE  66 

A 6  F  IIRMAT  <  /  '  INPUT  EFFICIENCY  RATING  01-  1  RANSFt  RE D  WORKER  '  ' 

*  '  FOR  FIRST  WEEK  IN  CHOP.  (If  WORKER  I :  • 

*  '  EXPECTED  10  WORK  A  i  COT,  I.  IF  I  CIENI  Y  UII  N  '/ 

*  '  EF  F  ICIENCY  RATING  IS  'MW  )  '  •  <t  > 

READ  <  6 . 10.ERR  =  65)  EFT  ( 1  ) 

M  -  1 

II  <h.G‘  -NWI,  1  GO  III  ,’7 
M  --  MM 
ITT- 1 

UiFMA'I-  IN! -IM  I.IJ  |l:||.i." J'  RAIING  I  ML'  lilt  "I  \l  WEEK.  5U 
IN  AIM/-  10.1  UR  ,  III  Mi 
MO  m 


-  Ti  - 


'4 


I  f'R  -  *  m  "  •.  ;  r 

m  u  ■ 

lYRf  U1 

iUKhf.ii/  [Nt  .11  m  i  f  j  i  m  i  i  r,  i  i  mu  fm:  mr,  m  r  i.  aomn 

nn  m 

ill  V  MUIR  '  ~  1.0 

IV  PE.  M 

I  OE’MA  I  <  /  ‘  INI'Ul  NUMBER  01  WORKERS  IN  SHOE  At  S  1  AR  I  ‘  t 
t  'iif  S':  I  Ml  II  AT  I  ON.  (1.4  I  ORHA I  > 

READ  <  A  .  J.  ' .  r  f  ’R -50  )  NURMI  N 
RT  TURN 
I  NM 


-  Hi  - 


I  OR T KAN  IV 
SHOP*SHOP=SHOP 


002 


1 


F  RI  12 -  JUN  81  O':.  5  461  31 


PAiil 


OiM'.  | 


oo  o;’ 
0003 
0004 
00  Of. 
0000 
0007 


SUBROUTINE  DATA  (PI  tF'2*  1 1  *  I2.DMF  AN,  liSTDEUr  NWK  ,  MN  101: .  NORlIi  iJ.f  1  I  , 

C**  SUBROUTINE  DATA  IS  USED  TO  INPUT  THE  INITIAL  PhRAMEIFRS  * 

f:**  PROM  A  STORED  DAI  A  FILE. 

C**  FOR  A  DEF  INITION  OF  THE  VARIABLES  SEE  THE  MAIN  PROGRAM .  * 

r**************** ****** *.  *  * *  *  *  *  * 
REAL  MN  JOB 
DIMENSION  FEE ( 6 ) 

READ ( 3  ,  5 » ERR=25 )  PI » P2  »  DMEAN »  DSTDEV , NWK  »  HNJOD 
5  FORMA  T  (  2  ( 2X » E5 . 4  )  *  1 4X  »2<2X » F  10  ♦  3  > » 2X  *  I3»2>'.F  6.2) 

READ (  3 , 10? ERR- 25 )  ( L EE  <  J ) , J= 1  . 6 > 

10  F  ORMAT  <  2X  1 6F 4 . 2  > 

C **: ************* *********** ********************************* ***:♦:*♦'  ♦  ♦  t 
C**  USE  CLOCK  TO  FIND  RANDOM  SEED  FOR  RANDOM  NUMBER  GENERATOR  *  * 

C ******************************** *** *****************************  I  F  f  *  * 


0008  II  =  SECNDS  <  0 . > /3 . 0 

0009  I F ( MOD (11,2) . EQ . 0 )  11  =  II  +  1 

ooii  12  =  n 

0012  15  TYPE  1.6 

0013  16  F  ORMAT ( / '  INPUT  NUMBER  WORKERS  IN  SHOP  AT  START  OF 7  , 

%  '  SIMULATION,  ‘ 

0014  READ ( 6 » 20 1 ERR= 15)  NOEMEN 

0015  20  FORMAT (15) 

0016  RETURN 

0017  25  TYPE  26 

0018  26  FORMAT ( / '  ERROR  IN  FILE  *  DATA . DA F *  *  CHECK  FILE.') 

0019  STOP 

0020  ENfi 


-  37  - 


I  OR TP AN  10 
SHHP»SHUP=SHOP 


F  K  i:  1  2 


F'A"I 


000  I 


0002 

0003 


000-1 

0005 

0007 


0009 
0010 
001 1 
('012 
0013 


00  M 
0015 
0016 
0017 


00  IB 
0019 
0020 
0021 


Vo ;>.2  i 


05 : 


I . '  < 


SUBROU r  INF  PARAM  (  DMFAN »  DST  DC V»  t  AM  1  *  L  AH  '  > 

C ****************************************** *****************  *  t  *  *  f  *  *  *  *  ■ 

Cl*  SUBROUTINE  CALCULATES  THE  PARAMETERS  EUR  Till  DELAY  T  T  MF 
C**  DISTRIBUTION.  *  ' 

C**************************************** ********************  t  *  *  t  «  t  *  *  •  t 
REAL*8  A  r  B 
REAL  LAM1 » LAH2 

C *************************************************  ***********  ttFHOAr 
('**  CALCULATE  COEFFICIENT  OF  VARIANCE 

(,********************************************************  ********** 
COVAR  =  DSTDE V/DMEAN 
I E ( COVAR . BE .0.99)  GO  TO  20 
IF < COVAR. LE. 0.71)  GO  TO  30 

C************************************************************  **  *  *  *  '  *  *  * 

c**  FIND  PARAMETERS  OF  GENERAL  TWO-STAGE  ERI.  ANG  *' 

C ****************************************************** *******  M  F  i  H  F  *  . 

A  =  DMEAN/ ( DMEAN**2-DSTDEV**2 ) 

B  =  SORT  ( 2*DS T B E  V *  *  2 - B M F.  A N *  *  2 )  /  (  D M E  A N *  *  2 -  DST  HE  V *  *  2  ) 

LAM1  =  A-B 
LAM2  -•=  a  +  B 
RETURN 

C **************************************** ********  ********  **** * F  *  *  *  *  * F  i  i 

f  *  *  FIN  I)  P  A  P  A  M  F  1  E  R  C  0  F  EXP  0  N  f  N  V  I A  E  ‘  * 

C ************************************************************  *******  *  f  • 
20  DUMI  -  1 . O/DMEAU 

LAM 2  =  100 . 0*DUMI 
LAM1  =  LAM2/( DMLAN*l AM2- 1 ,0) 

RETURN 

C*********** *******************************************************  *  *  *  * 
C**  F  IND  PARAME1 ERS  OF  SPECIAL  TWO-STAGE  ERLANG .  *  * 

C *********************************************************** ******1**** 
30  LAM1  =  2.0/DMFAN 

LAM2  =  LAM1 
RETURN 
END 
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I  UK TRAN  IV 
C  HOP,  SFIOP= SHOP 


VO'’.  21 


F K I  1 2-  JUN-81  os:  46::?, 


R-V.i 


. .  i  subeoi  u  ini  m:  i  r  tf:  <.  uof  ,  um  *  hunt  ,  nwui.  ,  wrkf  ,  mf-.-kl  ,  i  mpi  i .  ci  < >  . 

F  IDLE,  JUBWK ,HRWK  > 

I  *+F ********************************* ******  *******  **♦*********♦»*»**’•, 

<**  SUBROUTINE  deletes  workers  from  the  shop  and  pup.  ant  UMP 
>  **  Iff  I  RACK  ON  THE  WORK  A  RI..E  BACK  I  00  . 

I** ************************************************************  M  M  *  *•  f  I 

v<n>?  IMPLICIT  INTEGER  <A~Z> 

"POT  REAI  EVENT, CLOCK*!  IMF  ,  FIRWK ,  F  LOW  ,  RF  LUW 

000  4  COMMON  EVENT  <  1000  )  ,Fl.OW<  t  000  )  ,  JOBS  1 7  (  1000)  *  RF:  flA  I N  (  1  00"  .  . 

*  D I  RE  Cl  (  1 000 )  ,  WORK  ( 1  000  )  ,  JOB  <  .1 ) 

IF  (WRKF  .EQ.WRKL)  60  TO  50 

I  *************************************************,*:***.***:*;*:;*****  O  t  ‘  .  j 

r  **  F  IND  WORKER'S  LOCATION  IN  LIST. 

r **********  ********************  ***************************  EE  ***  *  *  NO  >  * 

•  •  PNTA  ~  WRKF 

■•"On  5  PN1D  =  DIRECT  <  FNT  A) 

OOOV  1  f-  (  B I  RFC  1  ( PNT  B  )  .  EQ  .  0 )  GO  I  0  1 0 

On  11  f‘N  I  A  -  F’N  I  B 

U012  BO  10  5 

c**** ******  ******  ********************************************** 

C **  REMOVE  WORKER  AND  UPDATE  POINTERS.  «• 

r.  **********************************************************  ******■*»  +  *,: 


TO  40 


001  j 

10 

DIRECT (PNTA)  =  0 

0  0 1  4 

WEKI.  -  PNTA 

0015 

DIRECT (PNTB)  =  EMPTY 

0016 

EMPTY  =  PNTB 

0017 

If  (RF  MAIN ( PNTB )  .Ell.  -  1  )  GO 

0019 

F'NTl  =  REMAIN  (PNTB) 

0020 

IF <PNT1 .EQ.NUQF)  BO  TO  25 

0022 

PNT  2  =  NWQF 

0023 

15 

F’NT3  =  DIRFCT  ( PNT  2 ) 

0024 

IF (PN1 3.EQ.PNT1 >  BO  TO  20 

0026 

PN12  =  PNT3 

002/ 

GO  TO  15 

C ************************************ *************** ****************  >  t  *  * 
C**  PUT  UNF  INISHED  JOB  BACK  ON  WORKABLE  BACKLOG.  +  1 
C ********************************************************************** 


0028 

20 

JOB ( 1 )  =  JOBSIZ (PNT3 ) 

0029 

JOB ( 2 )  =  REMAIN (PNT3) 

o 

o 

JOB (3)  =  WORK ( PNT3 ) 

0031 

TIME  =  EVENT <PNT3> 

0032 

RF  LOW  -•  FLOW  <  PNT3  ) 

0033 

DIRECT  <  PNT2  >  =  HIRE XT (PNT3) 

0034 

DIRECT  <  PNT 3 )  =  EMPTY 

0035 

EMPTY  =  PNT 3 

0036 

IF  (DIRECT  (PNT  2)  .EO.O)  NWGL=PNF2 

0038 

GO  TO  30 

0039 

25 

CALL  T  AKE  (  NWQF  ,  NWRL ,  T I  ME  *  RF  LOW ,  E  MPT  Y  »  S  1ATUB  ) 

0040 

30 

TIMF  =  TIME-CLOCK 

0041 

DUMMY  =  T IME*EVENT ( JOB ( 3 ) ) 

0042 

IE ( JOB ( 2 ) . EQ « 0 )  BO  TO  35 

0044 

TIME  =  DUMMY 

0045 

JOB ( 3 )  =  -2 

0046 

CAI  L  PUT(UQF,WRL, 1 , I IME , RFL OW , EMPT Y  ) 

39  - 


1 


PAl.f  ' 


I  OR TRAN  1'.' 
'■'.UOR.SHUP^SHOP 


"■’1  "  JOJ; UK  (1 

O' MO  HR  UK  =  HRUK  IJURf  1  ) 

u04"  R FT URN 

•  ,Sl'  Y5  JOB  <  J )  -  BUM  MY 

005  1  JOR(J)  1 

'>OM>  CAL  L  f  01  (WUErWQ!  .1.1  IMF » RFLOW , FMPT Y > 

005  J  JOB  UK  JOBWK+1 

0 0  5 1  HRUK  =  H  R UK  + J 0  B  (1  > 

U0t-“|  RE  I  URN 

t  :****##*************** ***************************************  t  ** *  *  *  k  «  * 

r.  *  *  WORKER  WAS  IDLE.  * 

!,t%*%1i;tit;*tt%i:*t***X%*t*t*****t******1ii*%*'il(.t.***'k*.*%*%**')l(.*t*ft*%**tlf  *  t  *  i  i 

0056  TO  IDLE  ~  IIlLF-l 

0057  RETURN 

0058  50  TYRE  5.1 

0059  51  FORMAT  ( /  All  WORKERS  DELETED.  PROGRAM  TERMINATED .  7  ) 

0060  STOP 

OOot  END 


FORTRAN  IV 
SHOPtSHOF^SHOP 


VO? . ?- 1 


FRI  t  2-- JUN--01  05  5  46:41 


PAGE  '  '  I 


OOol 


OOO? 
000? 
0005 
0006 
0007 
0009 
('•Cl  1  o 

oo  u 

'■>01  7 


SUBROUTINE  LiFLAY  (  TO  1  Al  »I,J,PARJ  *  PAR?  *  T 1  MR  > 
f;**  fc***###******#**#***#**#*#*#**  ###*#*#**####****  #*****#-**•*:*  #*  *  *  t  *  «•  *  f  > 

c**  subroutine:  determines  delay  time  for  a  job  entering  ntr  ** 

C**  NON- WORKABLE  QUEUE.  DELAY  TIME  IS  ADJUSTED  SO  THAT  NO 

C**  JOBS  CAN  COME  OFF  THE  QUEUE  AT  NIGHT.  n 

C**  VARIABLES  ARE  AS  DEFINED  IN  MAIN  PROGRAM.  *# 

C  *****  *  *********  *  *  *  ********  *  #.#*  *  **#*  *  *  *  *  *  #  **  **  *  ***  *  *******  *  *  **  *  *****  t  *  » 
5  INTER  =  <  -Al.  0G(  RAN(  I » J  >  ) /PARI -AI.OGI  RAN  ( I »  J  )  )  /PAR?  )  *240 

IF< INTER. 6T . 4800)  GO  TO  5 
TOTAL  =  INTER+TIME 
REM  =  AMOLK  TOTAL* 240.0) 

IF ( REM. GT. 80.0)  GO  TO  10 
RETURN 

10  TOTAL  =  TOTAL +240- REM 
RETURN 
END 


I  t.iRTRAN  IV 
'  4101  ■ .  ‘;HOP=SMt.iP 


'v1  ( i 


erf  i  •> 


PAGf 


i  >  r>  i  >  | 


OOO  ■' 
0003 
0004 


0005 

0007' 

0009 


001  I 
0012 
00]  4 
>015 
001  7 
0019 
>.’020 


002.1 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

(029 

0030 


0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 


05 


SUP  ROD  I  I  NF  (HI  ( ,  ROM >  Lfv'OW  *  80k  •  RFAI  ,  Rf  LOU  *  SR  AC.  I  ) 

L **********************#**##**#********************. ************** V*'  * 


C**  SUBROUTINE  PUT  IS  USED  TO  PUT  AH  LHIKY  OHIO  THL  LIST.  F  M I F  , 

(/.**  CAN  F.:L  INSERTFD  ON  LIT  MLR  END  OF  THL  IIS  I  OR  INTO  IMF  HI  I'll  C  .  *' 
P**  SOL- 1  =  VARIABLE  WHICH  DETERMINES  TYPE  OF  INSERTION.  *• 

C**  IF  0  THEN  ENTRY  IS  PUT  ONTO  BACK  Of  LIST.  *■ 

C**  IF  1  •  ‘  *  FRONT  OF  LIST. 

C **  IF  2  ENTRY  IS  SORTED  INTO  THE  LI  SI  SO  I  HAT  II  !  •  '  f.  »  * 

C**  FRONT  OF  THE  FIRST  LARGER;  ENTRY.  *» 


C***************************************************************M***t‘ 
IMPLICII  INTEGER  <A-Z> 

REAI  EVENT  *  FLOW » REAL , RELOW 

COMMON  EVENT  (1000)  *  FLOW  (  1000  )  *  JOBSIZ.  (  1000  )  *  REMAIN  (  1000  >  . 

*  D I RECT ( 1000 ) » WORK ( 1 000 ) » JOB ( 3 ) 

C*************#*#******#*#**********************************:***  *  M  *  *  *  • 

C**  DETERMINE  WHERE  ENTRY  G0F7S  ?  E T RST  t  LAST  t  OR  SORTED, 

r*************************************************** ******** **  *  *  M  « *  -  •  • 
IE  ( F  ROW , EQ . 0 )  GO  TO  50 
IE  < SORT . LQ . 0 )  GO  TO  40 
IF  ( SORT . EQ , 1 )  GO  TO  30 

C*+ ********** **********  *****************************  **********  UHHiH 
C**  SORT  LIST  TO  F  IND  WHERE  ENTRY  GOES.  *  * 

C ******************************************************* ******** ******* 
F'NI  1  r-  F  ROW 

IF  (  E  V  E  N  T  (  F-  N  T 1  >  .  G  T  .  R  (.!  A I  )  G  0  T  0  3  (; 

10  F'NT2  =  DIRECT  (F-HT1 ) 

IF  ( PUT 2 . EQ . 0 )  GO  TO  60 
IF  ( EVENT ( PNT2 ) .GT.RFAl )  GO  TO  20 
F'NTl  =  PNT2 
GO  TO  10 

C* ************************************************************** ******* 

C**  PUT  ENTRY  INTO  MIDDLE  OF  LIST.  *  * 

C************  **************************************  ****************  *  *  *  * 
20  JOBSIZ (SPACE)  =  JOB(l) 

EVENT (SPACE)  =  REAL 
FLOW (SPACE)  -  RFLOW 
REMAIN  (SPACE!)  =  J0B(2) 

WORK (SPACE)  =  JOD ( 3 ) 

ZZ  =  SPACE 

SPACE  -  DIRECT (SPACE) 

DIRECT ( PN  T 1 >  =  ZZ 
DIRECT  (ZZ)  =  F'NI  2 
RETURN 

[  ******************************* *********************************  ****** 
C**  PUT  ENTRY  ONTO  FRONT  OF  LIST.  *  * 

C************* ********************************************** Y******1*** 
30  PNT  =  FROU 

FROW  =  SPACE 
JOBSIZ (PROW)  =  JOB ( 1 ) 

EVENT (E ROW)  =  REAI 
FLOW  (FROW)  *  RELOW 
REMAIN (I  ROW)  -  J0D(2) 

WORK (FROW)  =  JOB ( 3 ) 

SPACE  =  DIRECT (SPACE) 
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I- OP  r KAN  IV 
SHOP  f  SHOP- SHOP 


VO?.  2-1 


F  K I  l  2  JlIN-  F> 1  OS;46t4'. 


PAG  I 


pi 

, ip.  i 


OO  t 
,  ,  o  4  ? 
Oo-l 
004  4 

O'  .40 
(.04 

.,.04  t 

(.(■4? 
OF.  4  V 

0  0 1 .  o 

0  i'S  1 


('.os? 
oos  J 

o  0  s  4 
OOS' . 
OOS  6 

I..)1;,  : 

0059 
'  OOSV 
"060 
.  0061 
0062 


Li  1  RF  C  l  (  H>'OM )  -  PNl 
RETURN 

ft*. ********************************  iL*  ************* ********^*****4*****' 

I  **  PUT  ENTRY  ONTO  END  OF  LIST.  *  * 

40  PNI  ---  l.  ROW 

L.ROU  --■  SPACE 

JOBS  I Z  (  LROU)  =  JOB  <  L  ) 

EVENT  (L.ROU)  =  FvEAl . 
ri.OW(l.ROW)  =  RFLOW 
REMAIN'!.  ROW)  =  JOB ( 2 ) 

WORK  ( I  .ROW  )  =  JOB  (3  .) 

GRAFF  =  HI  RFC!  (SPACE) 

LHRFCT(PNT)  =  I.  ROW 
DIRECT  (  LKOW  )  =  0 
RETURN 

r** ***************************************************  *********  OHIO* 

C**  ENTRY  IS  FIRST  IN  LIST  SETUP  IS  REQUIRED .  *■  <■ 

C ********************************************************* ********«(  *  .  s 

SO  FROM  =  SPACE 
CROW  -  SPACE 
JOBS I Z ( F  ROW )  =  JOB(l) 

F VENT (FLOW)  -  REAI 
F  L  Ol'f  ( FROW  )  =  RFLOW 
REMAINS  ROW)  =  JOB (.2) 

WORK (FROM)  =  JOB ( 3 ) 

SPACE  =  H I  RECK  SPACE  > 

DIRECT (FROW)  =  0 

RETURN 

END 
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I  UK' 1  KAN  IV 
CUUP  *  SHOF'-SHOP 


VO  2 


JUN'ul  0  5  ;  4  o  .  -I 


PAUL  <">l 


0001 


ooo 

0003 

0004 

0005 

0006 

000 P, 
(>009 
00  10 
ooi  l 
0012 

001  3 

0014 

ooi  r, 
0016 
0  0 1  7 
0019 
0020 
'.’021 
0022 
0023 


SUBKUU I  INF.  TAKL  ( FRUU  »  LROW  f  AREAL .  RF  LOW  t  SPACE  » SI  A  I  US  ) 

r****#1:******#**####***#*#*!k###*##*#*##*#*##)|;*#**** *.**#********♦  *  ♦  t  i  i  t  . 


C**  SUBKOUT  I NF  TAKE"  IS  USED  TO  REMOVE!  AN  ENTRY  IN  THE  LIST.  *  " 
0**  VACANCY  IS  THEN  DESIGNATE!-!  AS  FIRST  AVAILABLE.  EMPTY  SPACE.  * - 
C**  STATUS  IS  A  FLAG »  UHEN  THERE  ARE  NO  JOBS  IN  THE  LIST  IT  IS  *  = 
C**  SET  TO  ■0*.  OTHERWISE  IT  IS  SET  TO  *  1  * . 


C*  ************  *#*  *******  ******  ********************  *********  ***  *  **  if**  *.*  i 
IMPLICIT  INTEGER < D-Z ) 

REAL  EVENT  >  FLOW  t RFLOU 

COMMON  EVENT ( 1000) , FLOW ( 1000) >  JOBSIZ(IOOO) , REMAIN ( 1000 )  , 

*  DIRECT ( 1000) » WORK  < 1000) » J0B(3) 

STATUS  =  1 

IF(FROM.EQ.O)  GO  TO  15 

C*****  TRANSFER  INFORMAT  ION  ON  ENTRY  ************************ *  *  Y*  * 

JOB ( 1 )  =  JOBSIZ (FROU) 

AREAL  =  EVENT (FROU) 

RFLOU  =  FLOW (FROM) 

JOB ( 2 )  =  REMAIN (FROU) 

JOB ( 3 )  =  WORK (FROU) 

C***#*#  UPDATE  POINTERS  ***************************************** 

F'NT  =  DIRECT  (FROU) 

DIRECT  (FROM)  ■=  SPACE 
SPACE  =  FROW 
FROU  ==  F'NT 

IF (FROU. EG. 0)  GO  10  15 
RETURN 

15  STATUS  -  0 
LROW  =  0 
RETURN 
END 


r  UK  IK- AN  IV 
SHOP, SHOP-SHOP 


vo?.?- 1 


FRI  12-JUN--81  055  4* 


PAM 


OJA  I 


Cm  >o.’ 

0003 
0>. ‘04 

0005 
0  0  0 

,  i  o  0  5 
00.1  0 
OO  1  3 
0(.‘  1  A 

'014 


001* 

0017 

0010 


SUBKUUI  LNP  NEW JOB  ( PNT » WOE  *  WQL.  *  NUQE 

CLOCK  ,  NO JOB » IDLE 


»  N LI m  I  f.  M f  T  Y  ,  J 0 B UK  » H K W T 
,  SUM,  I IH  TM,  MR,  TOT  I  HI  ' 


C *************************************************************** ******* 

(**  SUBROUTINE:  GIVES  WORKER  A  NEW  JOB  FROM  THE  WORKABLE  QUEUE.  f* 

C**  VARIABLES  ARE  AS  DEFINED  IN  THE  MAIN  PROGRAM.  *  * 

r ***************************************************************  t  1 1  **  «  » 
IMPLICIT  INTEGER ( A-Z ) 

REAL  EVEN  I  ,  T  I  ME  ,  CLOCK  ,  I  DLTM  ,  HR  UK  ,  FLOW  ,  RFl.  OW 

COMMON  EVEN!  < 1000) >FLOM< 1 000) , JOBS I Z ( 1000 ) .  IN  MAIN!  1000 :  . 

*  Li  I  RE  CT  ( 1000  )  ,  WORK  ( 1 000  )  ,  JOB  (  3  ) 

IE < NO JOB. tO. 1 )  RE  I  URN 

CALL  T  IDLE  (SUM,  CLOCK,  1  ,PNT,  1DL.TM,  I  TR,  TOT  IDE) 

HUE  =  IDLE-1 

CALL  TAKE. (WOE  »WUI. ,  I IME , REL.OW , EMPT  Y  ,  STATUS) 

I F ( S I  A  TUB . t  v . 0 )  NO J OB-1 
JOBWK  =  JOBWK-1 
HRWK  =  HRWK-JOB(l) 

IE ( JOB <  3  >  . NE . -  2 )G0  TO  20 

C ********************************************************************** 

C**  JOB  HAS  AIRtADY  BEEN  IN-PROCESS  BEFORE  * ’ 

f  *************************************************************  tHIHtH 

DUMMY  -•  JOB  (2) /EVENT  (PNT) 

TIME  =  DUMMY! CLOCK 
J0B<2>  -  0 


0019  10  JOB  ( 3 )  --  PNT 

0020  REMAIN (PNT)  -  EMPTY 

00?  1  CAL  L  PUT  (  NWQE  ,  NWOI.. ,  2 ,  TIME  ,  RE  LOW ,  EMPTY  ) 


OO.'  .  ?-  1 


RAM 


FLlFMRAN  I U 
>■;  MOP.  SHOP  =  SHOP 


''■O1'  I  SUPFdOUl  INK  1  IDLF  (  SUM » CLOCK  *  F  L  AG1 » PN  1  *  I  Dl  1  M  >  11  F>‘  •  i  U  I  l  Dl  ; 

C**************^*##****#*************************  *************♦**♦♦»''' 
C **  GUBROUT I NF  DETERMINES  AMOUNT  OF  WORKER  IDLF:  T  IMF. . 

r  ****************%****************************■*■********* *  *  *  i  *  *  *  *  *  *  •  •  •  * 

0002  IMPLICIT  INTEGER  < D-Z > 

U003  REAL  IDL I M» EVENT » TOT  IDE, FLOW 

0004  COMMON  EVENT  (1000)  » FLOW  (1000)  »  JODSI 7.  (  1 000  )  > REMAIN1  1000)  , 

*  D I RF  C  T ( 1 000 ) ,  WORK ( 1 000 ) *  JOB ( 3 ) 

0005  DIMENSION  I  FLAG  <  100  ) »  BT I  ME  (  1  00  ) 

000 A  I E ( BUM . GT . I VR  >  ITR  =  SUM 

0008  5  IF  (FLAG1 ,E0. 1 )  GO  TO  20 

L**  WORKER  STARTS  IDLE  PERIOD.  r> 

Ct  If  t***********************************************  *******%*  If  It*  ******* 


('010 

DO  10  1=1 r ITR 

0011 

IFdFLAGd) .EG.O)  GO  TO  15 

00 i 3  1  0 

CONTINUE 

0014  IK 

I  FLAG  d)  =  1 

00  IS 

BTIMFd)  =  CLOCK 

0016 

WORK  ( F'NT  >  -  I 

0017 

RE  TURN 

(.  p****************  *****  **********r*  *************************  nttUFTMi 

M  *  WORKER  ENDS  IDLE  PERIOD  *  - 

C**************************************************************  ****  if  i  *  « 


001  B 

:o 

I  =  WORK  <  F'NT  ) 

001° 

IDLTM  =  IDL  TMTCL  OCK-BTIMF"  ( I  ) 

0  <  ‘>0 

TOT  ID!  =  IT.) T  1DI  PCI.  OCK -BT  I  ME  < 

0021 

IF  LAG ( I  )  =  0 

0022 

RETURN 

0023 

END 
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I  UR IRAN  TV 
HVlilt'  *  HMOF'-BHOP’ 


VO 2 . 21 


f  R  I  1 2- JUN-H 1  OS  5  4  6! 


i 


I 


oOn  J 
t  >  ■ .  1 1 7, 
Ci  o  ( 1 4 

Of"  >S 

i  '• ;  i  r '  ,* , 
(  1 0 1 1  '• 
01  |(.»R 
1 1  a  o  y 

on  1  O 
of'1  1 
on]  j 
001  4 
(on  s 
001  A 
( 1 0  1  7 


I  m>.| 


SUBROUI  INF:  RFS0R1  (PNI  *  P  N  1  lfl'WI2-LHm  *  NWUF  *  NWQI..  *  1  [fit  > 
r*Y***;p*  **************************  ************.**  *•*♦**  ******  ‘ 

f;**  BUBROUT  1 NE  l'AKF.S  TUP  E N I  R Y  AT  ROW  *  PNT2  *  .  L H ANGLO  1  HI 

C**  EVEN  F  I  1  HE.  ANlt  THEN  I  NOE  RIO  IT  HALT  OHIO  I  HE  LiSI. 

;  **  ************************************’)*********  ***************  >  *  *  <■ 
IMPLICIT  INTEGER  (A-2> 

R  t  A I  r  V  E  N T  »  T 1  ME  .  F I  0  W  *  R P  l  0  W 

COMMON  EVENT < 1 000 1 . PL  OW ( 1 000 ) » Ji  IBs I Z ( 1 OOO ) . RF MA  I N < 1 000  *  * 

*  HIRE  C  I  <  1000)  » WORK  (  1000)  ,  JUB(  ■ 

mu  (  1  •  -  JOBS  I  /  <  F'NT2  ) 

JOB ( 2 )  =  REMAIN ( PN 1 2 ) 

JOB ( 3 )  =  WORK ( F’NT  2 ) 

RFL.OI-I  =  PLOW  (PNT  2) 

DIR  F Cl (PNT 1 )  =  DIR E C 1  ( P  N 1 2 l 
HI RFC  1 ( PNT2 )  =  EMPTY 
EMPTY  =  PNT 2 

I F  ( F’NT  2  .  EQ .  NWQI . )  NWOI.  =  PNT  1 

CAL  L  PUT  (  NWQF  *  NWQI  *2*11  ME  » RF  LOW  >  EMPT  Y  > 

REMAIN  (PNT)  =  F’NT  2 

RETURN 

END 
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I  OR IRAN  IV 
5Hnp,SHOP=SHOP 


VO?  .  ?-■  1 


2“  JON-f'1  4  - 


SUBROUT  INF  mil  F'UT  (  JOBWK  ,  HRUK  »  JOBNWK  .  HRNWK  ,  M  INF  .  UF  F  K  ,  S'  in  . 

*  IDLTM.AVF LOW) 

r******#**##'t)|(#*t************************M***>M*'M.********tM*tMiF*! 
C**  SUBROUTINE  OUTPUTS  THE  STATE  OF  IMF.  SYSTEM  Al  I HF  END  Oi  let  « 
C**  WEEK.  VARIABLES  ARE  AS  DEFINF.Ii  IN  THE  MAIN  PROGRAM  •  • 

C*********************************  **************  ************  Ft*  *  *  *  *  *  » 


000? 

IMPLICIT  INTEGER ( A-Z ) 

ooo:j 

REAL  EVENT  *  CLOCK  *  I  DL.TM »  HRUK  *  HRNWK  *  DON!.  >  UUONF 

•  HU 

0004 

REAL  *0  AVFLOW 

.*005 

WDONE  =  DONE / 10.0 

0  000 

IDLTM  =  IDLTM/10.0 

•  >O0  7 

HU  =  HR WK/ 10.0 

0008 

HNU  =  HRNWK/ 10.0 

0009 

UR IT  E  <  6  *  10) WEEK 

0010 

10 

FORMAT ( 10( / ) » 15X, 'RESULTS  FOR  WEEK' ,14//) 

001  1 

WRITE (6, 15) 

0012 

15 

F  ORMAT  ( 5 X «  '  BACKI  .00  '  ,  1  OX ,  '  NO  .  OF  JOBS  NO  . 

OF 

001  3 

WRITE (6,20) 

0014 

20 

FORMAT <5X,  '======='  ,  10X,  11  <  '*='),  5X ,  20  <  '  =  '  )  ) 

0015 

WRITE (6, 25) JOBWK, HU, JOBNWK, HNW 

0016 

25 

FUFsMAT  (  5X  ,  '  WORKABLE  '  ,  1 18  ,  F19 . 1  /5X  ,  '  NONUORKABLE  ' 

00  1  7 

WRITE (6, 35)  IDLTM 

''OIF.: 

35 

F0RMAK5X,  'WORKERS  WERE  IDLE  ',06.1..'  HOURS' 

/  ) 

00  1.9 

UR  I  IE (6, 30) WDONE 

OO.’O 

30 

FORMA  1  <  5X  * ' UORK  COMPLETED  I  HIS  WEEK  T  OTALLED 

'  ,1 

00?  1 

WRITE (6, 36)  AVFLOW 

( 1 0  ?  ? 

36 

F0RMAT(5X»  'AVERAGE  FLOW  TIME  ',F6.1»'  DAYS'/ 

) 
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RETURN 
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END 
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